home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-08-11 | 13.8 KB | [PROL/SIGM] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [PROL] |
| macFileCreator | [SIGM] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 46 00 04 0b 3c | 45 44 49 4e 42 55 52 47 |...F...<|EDINBURG|
|00000010| 48 3e 00 00 00 00 0b 3c | 49 4e 54 45 52 50 52 45 |H>.....<|INTERPRE|
|00000020| 54 3e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |T>......|........|
|00000030| 00 00 00 00 00 00 0b 28 | 7f 44 0f 0b 59 63 00 00 |.......(|.D..Yc..|
|00000040| 01 55 00 00 00 1e 00 00 | 00 00 00 00 00 00 0c 46 |.U......|.......F|
|00000050| 6f 6e 74 20 43 68 6f 6f | 73 65 72 3c 00 06 72 16 |ont Choo|ser<..r.|
|00000060| 00 06 00 00 14 31 00 00 | 00 00 00 00 20 03 00 e4 |.....1..|.... ...|
|00000070| 40 c2 00 06 73 7a 00 05 | 1c cc 00 3d 64 84 00 01 |@...sz..|...=d...|
|00000080| 60 76 00 e4 40 c2 00 e4 | 41 52 40 81 08 e6 40 81 |`v..@...|AR@...@.|
|00000090| 1e aa 00 00 00 00 00 00 | 0b c2 00 00 00 00 00 00 |........|........|
|000000a0| 02 00 00 00 00 00 00 00 | 00 4e 00 00 00 01 00 e4 |........|.N......|
|000000b0| 41 3a 00 0b 12 0c 00 00 | f3 80 00 d7 8d 68 00 e4 |A:......|.....h..|
|000000c0| 41 6c 00 ea 6c 00 00 06 | 00 04 00 06 74 58 ff 00 |Al..l...|....tX..|
|000000d0| 00 12 00 bf a9 18 00 e4 | 4d 2e 00 c0 0a 3e 00 00 |........|M....>..|
|000000e0| 00 05 00 e4 41 2a 00 be | a9 6e 00 e4 41 6c 00 e4 |....A*..|.n..Al..|
|000000f0| 52 74 00 cb 4b 8c 00 06 | 73 36 00 06 73 46 00 01 |Rt..K...|s6..sF..|
|00000100| 60 76 00 e4 41 3a 00 e4 | 41 3a 00 00 00 01 00 c0 |`v..A:..|A:......|
|00000110| 0a 24 00 b9 ba d2 00 c0 | 0a 30 00 e2 b4 5e 00 00 |.$......|.0...^..|
|00000120| 00 00 00 05 a0 03 40 81 | 19 62 00 00 00 00 00 00 |......@.|.b......|
|00000130| 4d 34 00 c0 0a 1e 0b c2 | b9 16 00 00 01 01 00 d7 |M4......|........|
|00000140| 8d 68 00 00 00 01 00 00 | 00 01 00 00 00 00 00 39 |.h......|.......9|
|00000150| 00 0a 01 6e 02 23 00 00 | 00 0a 00 09 00 04 00 68 |...n.#..|.......h|
|00000160| 00 01 00 00 00 00 00 00 | 0e 17 b4 01 0d 2f 2a 0d |........|...../*.|
|00000170| 52 75 6e 20 74 68 65 20 | 71 75 65 72 79 0d 0d 09 |Run the |query...|
|00000180| 3a 2d 20 63 68 6f 6f 73 | 65 5f 66 6f 6e 74 2e 0d |:- choos|e_font..|
|00000190| 0d 74 6f 20 67 65 6e 65 | 72 61 74 65 20 61 20 43 |.to gene|rate a C|
|000001a0| 6f 6e 74 72 6f 6c 20 57 | 69 6e 64 6f 77 20 77 68 |ontrol W|indow wh|
|000001b0| 69 63 68 20 61 6c 6c 6f | 77 73 0d 73 65 6c 65 63 |ich allo|ws.selec|
|000001c0| 74 69 6f 6e 20 6f 66 20 | 66 6f 6e 74 2c 20 73 69 |tion of |font, si|
|000001d0| 7a 65 2c 20 73 74 79 6c | 65 20 61 6e 64 20 63 6f |ze, styl|e and co|
|000001e0| 6c 6f 75 72 2e 0d 54 68 | 65 20 74 65 78 74 20 66 |lour..Th|e text f|
|000001f0| 69 65 6c 64 20 61 74 20 | 74 68 65 20 62 6f 74 74 |ield at |the bott|
|00000200| 6f 6d 20 6f 66 20 74 68 | 65 20 63 6f 6e 74 72 6f |om of th|e contro|
|00000210| 6c 20 77 69 6e 64 6f 77 | 0d 63 68 61 6e 67 65 73 |l window|.changes|
|00000220| 20 74 6f 20 72 65 66 6c | 65 63 74 20 74 68 65 20 | to refl|ect the |
|00000230| 63 75 72 72 65 6e 74 20 | 64 65 74 61 69 6c 73 0d |current |details.|
|00000240| 65 61 63 68 20 74 69 6d | 65 20 74 68 65 20 75 73 |each tim|e the us|
|00000250| 65 72 20 6d 61 6b 65 73 | 20 61 20 6d 65 6e 75 20 |er makes| a menu |
|00000260| 73 65 6c 65 63 74 69 6f | 6e 2e 0d 0d 54 68 69 73 |selectio|n...This|
|00000270| 20 69 73 20 68 6f 77 20 | 74 68 65 20 27 46 6f 6e | is how |the 'Fon|
|00000280| 74 2e 2e 2e 27 20 6f 70 | 74 69 6f 6e 20 6f 66 20 |t...' op|tion of |
|00000290| 74 68 65 0d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |the.envi|ronment |
|000002a0| 27 57 69 6e 64 6f 77 73 | 27 20 6d 65 6e 75 20 69 |'Windows|' menu i|
|000002b0| 73 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 0d 2a |s implem|ented..*|
|000002c0| 2f 0d 0d 63 68 6f 6f 73 | 65 5f 66 6f 6e 74 3a 2d |/..choos|e_font:-|
|000002d0| 0d 20 20 20 66 6f 6e 74 | 73 28 20 41 6c 6c 46 6f |. font|s( AllFo|
|000002e0| 6e 74 73 20 29 2c 0d 20 | 20 20 66 6f 78 5f 74 65 |nts ),. | fox_te|
|000002f0| 78 74 28 20 46 6f 78 54 | 65 78 74 20 29 2c 0d 20 |xt( FoxT|ext ),. |
|00000300| 20 20 41 6c 6c 46 6f 6e | 74 73 20 3d 20 5b 46 69 | AllFon|ts = [Fi|
|00000310| 72 73 74 46 6f 6e 74 7c | 4f 74 68 65 72 73 5d 2c |rstFont||Others],|
|00000320| 0d 20 20 20 57 69 6e 20 | 3d 20 27 46 6f 6e 74 20 |. Win |= 'Font |
|00000330| 43 68 6f 69 63 65 27 2c | 0d 20 20 20 63 77 5f 63 |Choice',|. cw_c|
|00000340| 72 65 61 74 65 28 20 57 | 69 6e 2c 20 36 30 2c 20 |reate( W|in, 60, |
|00000350| 32 30 2c 20 32 33 38 2c | 20 33 35 30 2c 20 5b 20 |20, 238,| 350, [ |
|00000360| 64 69 61 6c 6f 67 2c 20 | 76 69 73 69 62 6c 65 5d |dialog, |visible]|
|00000370| 20 29 2c 0d 20 20 20 63 | 77 5f 61 64 64 5f 69 74 | ),. c|w_add_it|
|00000380| 65 6d 28 20 57 69 6e 2c | 20 6f 6b 42 75 74 74 6f |em( Win,| okButto|
|00000390| 6e 2c 20 62 6f 6c 64 62 | 75 74 74 6f 6e 28 20 32 |n, boldb|utton( 2|
|000003a0| 30 30 2c 20 32 36 38 2c | 20 32 38 2c 20 36 38 2c |00, 268,| 28, 68,|
|000003b0| 20 27 4f 4b 27 20 29 20 | 29 2c 0d 20 20 20 63 77 | 'OK' ) |),. cw|
|000003c0| 5f 61 64 64 5f 69 74 65 | 6d 28 20 57 69 6e 2c 20 |_add_ite|m( Win, |
|000003d0| 65 6e 64 42 75 74 74 6f | 6e 2c 20 62 75 74 74 6f |endButto|n, butto|
|000003e0| 6e 28 20 32 30 34 2c 20 | 31 30 2c 20 32 30 2c 20 |n( 204, |10, 20, |
|000003f0| 36 30 2c 20 27 43 61 6e | 63 65 6c 27 20 29 20 29 |60, 'Can|cel' ) )|
|00000400| 2c 0d 20 20 20 63 77 5f | 61 64 64 5f 69 74 65 6d |,. cw_|add_item|
|00000410| 28 20 57 69 6e 2c 20 66 | 6f 6e 74 50 6f 70 75 70 |( Win, f|ontPopup|
|00000420| 2c 20 70 6f 70 75 70 28 | 20 33 30 2c 31 30 2c 20 |, popup(| 30,10, |
|00000430| 32 30 2c 20 31 38 30 2c | 20 27 46 6f 6e 74 3a 27 |20, 180,| 'Font:'|
|00000440| 2c 20 41 6c 6c 46 6f 6e | 74 73 2c 20 46 69 72 73 |, AllFon|ts, Firs|
|00000450| 74 46 6f 6e 74 20 29 29 | 2c 0d 20 20 20 63 77 5f |tFont ))|,. cw_|
|00000460| 61 64 64 5f 69 74 65 6d | 28 20 57 69 6e 2c 20 5f |add_item|( Win, _|
|00000470| 2c 20 74 65 78 74 28 20 | 36 30 2c 20 31 30 2c 20 |, text( |60, 10, |
|00000480| 32 30 2c 20 34 30 2c 20 | 27 53 69 7a 65 3a 27 20 |20, 40, |'Size:' |
|00000490| 29 29 2c 0d 20 20 20 63 | 77 5f 61 64 64 5f 69 74 |)),. c|w_add_it|
|000004a0| 65 6d 28 20 57 69 6e 2c | 20 73 69 7a 65 45 64 69 |em( Win,| sizeEdi|
|000004b0| 74 2c 20 65 64 69 74 28 | 20 36 30 2c 20 35 38 2c |t, edit(| 60, 58,|
|000004c0| 20 32 30 2c 20 35 30 2c | 20 27 31 32 27 20 29 29 | 20, 50,| '12' ))|
|000004d0| 2c 0d 20 20 20 63 77 5f | 61 64 64 5f 69 74 65 6d |,. cw_|add_item|
|000004e0| 28 20 57 69 6e 2c 20 63 | 6f 6c 50 6f 70 75 70 2c |( Win, c|olPopup,|
|000004f0| 20 70 6f 70 75 70 28 20 | 39 30 2c 31 30 2c 20 32 | popup( |90,10, 2|
|00000500| 30 2c 20 31 38 30 2c 20 | 27 43 6f 6c 6f 75 72 3a |0, 180, |'Colour:|
|00000510| 27 2c 20 5b 62 6c 61 63 | 6b 2c 20 77 68 69 74 65 |', [blac|k, white|
|00000520| 2c 20 72 65 64 2c 20 62 | 6c 75 65 2c 20 67 72 65 |, red, b|lue, gre|
|00000530| 65 6e 2c 20 79 65 6c 6c | 6f 77 2c 20 6d 61 67 65 |en, yell|ow, mage|
|00000540| 6e 74 61 2c 20 63 79 61 | 6e 5d 2c 20 62 6c 61 63 |nta, cya|n], blac|
|00000550| 6b 20 29 29 2c 0d 20 20 | 20 63 77 5f 61 64 64 5f |k )),. | cw_add_|
|00000560| 69 74 65 6d 28 20 57 69 | 6e 2c 20 5f 2c 20 74 65 |item( Wi|n, _, te|
|00000570| 78 74 28 20 31 30 2c 20 | 32 32 30 2c 20 32 30 2c |xt( 10, |220, 20,|
|00000580| 20 36 30 2c 20 27 53 74 | 79 6c 65 3a 27 20 29 29 | 60, 'St|yle:' ))|
|00000590| 2c 0d 20 20 20 63 77 5f | 61 64 64 5f 69 74 65 6d |,. cw_|add_item|
|000005a0| 28 20 57 69 6e 2c 20 73 | 74 79 6c 65 4d 65 6e 75 |( Win, s|tyleMenu|
|000005b0| 2c 20 6d 65 6e 75 28 20 | 33 30 2c 20 32 32 30 2c |, menu( |30, 220,|
|000005c0| 38 32 2c 20 31 30 30 2c | 20 5b 27 50 6c 61 69 6e |82, 100,| ['Plain|
|000005d0| 27 2c 20 27 42 6f 6c 64 | 27 2c 20 27 49 74 61 6c |', 'Bold|', 'Ital|
|000005e0| 69 63 27 2c 20 27 55 6e | 64 65 72 6c 69 6e 65 27 |ic', 'Un|derline'|
|000005f0| 2c 20 27 4f 75 74 6c 69 | 6e 65 27 2c 20 27 53 68 |, 'Outli|ne', 'Sh|
|00000600| 61 64 6f 77 27 2c 20 27 | 43 6f 6e 64 65 6e 73 65 |adow', '|Condense|
|00000610| 27 2c 20 27 45 78 74 65 | 6e 64 27 5d 2c 20 5b 27 |', 'Exte|nd'], ['|
|00000620| 50 6c 61 69 6e 27 5d 29 | 20 29 2c 0d 20 20 20 63 |Plain'])| ),. c|
|00000630| 77 5f 61 64 64 5f 69 74 | 65 6d 28 20 57 69 6e 2c |w_add_it|em( Win,|
|00000640| 20 64 6f 67 54 65 78 74 | 2c 20 74 65 78 74 28 20 | dogText|, text( |
|00000650| 31 32 36 2c 20 31 34 2c | 20 36 30 2c 20 33 32 32 |126, 14,| 60, 322|
|00000660| 2c 20 46 6f 78 54 65 78 | 74 2c 20 46 69 72 73 74 |, FoxTex|t, First|
|00000670| 46 6f 6e 74 2c 20 31 32 | 2c 20 30 2c 20 62 6c 61 |Font, 12|, 0, bla|
|00000680| 63 6b 20 29 20 29 2c 0d | 20 20 20 63 77 5f 61 64 |ck ) ),.| cw_ad|
|00000690| 64 5f 69 74 65 6d 28 20 | 57 69 6e 2c 20 5f 2c 20 |d_item( |Win, _, |
|000006a0| 62 6f 78 28 20 31 32 32 | 2c 20 31 30 2c 20 36 38 |box( 122|, 10, 68|
|000006b0| 2c 20 33 33 30 20 29 20 | 29 2c 0d 20 20 20 63 77 |, 330 ) |),. cw|
|000006c0| 5f 73 65 74 5f 70 72 6f | 67 72 61 6d 28 20 57 69 |_set_pro|gram( Wi|
|000006d0| 6e 2c 20 63 6c 69 63 6b | 2c 20 66 6f 6e 74 43 6c |n, click|, fontCl|
|000006e0| 69 63 6b 65 72 20 29 2e | 0d 0d 0d 2f 2a 20 54 68 |icker ).|.../* Th|
|000006f0| 65 20 63 6c 69 63 6b 20 | 70 72 6f 67 72 61 6d 20 |e click |program |
|00000700| 2a 2f 0d 0d 25 20 54 68 | 65 20 46 6f 6e 74 20 6d |*/..% Th|e Font m|
|00000710| 65 6e 75 0d 66 6f 6e 74 | 43 6c 69 63 6b 65 72 28 |enu.font|Clicker(|
|00000720| 20 57 69 6e 2c 20 66 6f | 6e 74 50 6f 70 75 70 20 | Win, fo|ntPopup |
|00000730| 29 3a 2d 0d 20 20 63 77 | 5f 67 65 74 5f 69 74 65 |):-. cw|_get_ite|
|00000740| 6d 28 20 57 69 6e 2c 20 | 66 6f 6e 74 50 6f 70 75 |m( Win, |fontPopu|
|00000750| 70 2c 20 46 6f 6e 74 20 | 29 2c 0d 20 20 63 77 5f |p, Font |),. cw_|
|00000760| 67 65 74 5f 69 74 65 6d | 28 20 57 69 6e 2c 20 64 |get_item|( Win, d|
|00000770| 6f 67 54 65 78 74 2c 20 | 5f 2c 20 5f 2c 20 44 65 |ogText, |_, _, De|
|00000780| 73 63 20 29 2c 0d 20 20 | 72 65 61 64 5f 73 69 7a |sc ),. |read_siz|
|00000790| 65 28 20 57 69 6e 2c 20 | 53 69 7a 65 20 29 2c 0d |e( Win, |Size ),.|
|000007a0| 20 20 44 65 73 63 20 3d | 20 74 65 78 74 28 20 54 | Desc =| text( T|
|000007b0| 2c 4c 2c 44 2c 57 2c 20 | 46 6f 78 54 65 78 74 2c |,L,D,W, |FoxText,|
|000007c0| 20 4f 6c 64 46 6f 6e 74 | 2c 20 4f 6c 64 53 69 7a | OldFont|, OldSiz|
|000007d0| 65 2c 20 53 74 79 6c 65 | 2c 20 43 6f 6c 6f 75 72 |e, Style|, Colour|
|000007e0| 20 29 2c 0d 20 20 4e 65 | 77 44 65 73 63 20 3d 20 | ),. Ne|wDesc = |
|000007f0| 74 65 78 74 28 20 54 2c | 4c 2c 44 2c 57 2c 20 46 |text( T,|L,D,W, F|
|00000800| 6f 78 54 65 78 74 2c 20 | 46 6f 6e 74 2c 20 53 69 |oxText, |Font, Si|
|00000810| 7a 65 2c 20 53 74 79 6c | 65 2c 20 43 6f 6c 6f 75 |ze, Styl|e, Colou|
|00000820| 72 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |r ),. c|w_add_it|
|00000830| 65 6d 28 20 57 69 6e 2c | 20 64 6f 67 54 65 78 74 |em( Win,| dogText|
|00000840| 2c 20 4e 65 77 44 65 73 | 63 20 29 2e 0d 0d 25 20 |, NewDes|c )...% |
|00000850| 54 68 65 20 43 6f 6c 6f | 75 72 20 6d 65 6e 75 0d |The Colo|ur menu.|
|00000860| 66 6f 6e 74 43 6c 69 63 | 6b 65 72 28 20 57 69 6e |fontClic|ker( Win|
|00000870| 2c 20 63 6f 6c 50 6f 70 | 75 70 20 29 3a 2d 0d 20 |, colPop|up ):-. |
|00000880| 20 63 77 5f 67 65 74 5f | 69 74 65 6d 28 20 57 69 | cw_get_|item( Wi|
|00000890| 6e 2c 20 63 6f 6c 50 6f | 70 75 70 2c 20 43 6f 6c |n, colPo|pup, Col|
|000008a0| 6f 75 72 20 29 2c 0d 20 | 20 72 65 61 64 5f 73 69 |our ),. | read_si|
|000008b0| 7a 65 28 20 57 69 6e 2c | 20 53 69 7a 65 20 29 2c |ze( Win,| Size ),|
|000008c0| 0d 20 20 63 77 5f 67 65 | 74 5f 69 74 65 6d 28 20 |. cw_ge|t_item( |
|000008d0| 57 69 6e 2c 20 64 6f 67 | 54 65 78 74 2c 20 5f 2c |Win, dog|Text, _,|
|000008e0| 20 5f 2c 20 44 65 73 63 | 20 29 2c 0d 20 20 44 65 | _, Desc| ),. De|
|000008f0| 73 63 20 3d 20 74 65 78 | 74 28 20 54 2c 4c 2c 44 |sc = tex|t( T,L,D|
|00000900| 2c 57 2c 20 46 6f 78 54 | 65 78 74 2c 20 46 6f 6e |,W, FoxT|ext, Fon|
|00000910| 74 2c 20 4f 6c 64 53 69 | 7a 65 2c 20 53 74 79 6c |t, OldSi|ze, Styl|
|00000920| 65 2c 20 4f 6c 64 43 6f | 6c 6f 75 72 20 29 2c 0d |e, OldCo|lour ),.|
|00000930| 20 20 4e 65 77 44 65 73 | 63 20 3d 20 74 65 78 74 | NewDes|c = text|
|00000940| 28 20 54 2c 4c 2c 44 2c | 57 2c 20 46 6f 78 54 65 |( T,L,D,|W, FoxTe|
|00000950| 78 74 2c 20 46 6f 6e 74 | 2c 20 53 69 7a 65 2c 20 |xt, Font|, Size, |
|00000960| 53 74 79 6c 65 2c 20 43 | 6f 6c 6f 75 72 20 29 2c |Style, C|olour ),|
|00000970| 0d 20 20 63 77 5f 61 64 | 64 5f 69 74 65 6d 28 20 |. cw_ad|d_item( |
|00000980| 57 69 6e 2c 20 64 6f 67 | 54 65 78 74 2c 20 4e 65 |Win, dog|Text, Ne|
|00000990| 77 44 65 73 63 20 29 2e | 0d 0d 25 20 54 68 65 20 |wDesc ).|..% The |
|000009a0| 53 74 79 6c 65 73 20 6d | 65 6e 75 0d 66 6f 6e 74 |Styles m|enu.font|
|000009b0| 43 6c 69 63 6b 65 72 28 | 20 57 69 6e 2c 20 73 74 |Clicker(| Win, st|
|000009c0| 79 6c 65 4d 65 6e 75 20 | 29 3a 2d 0d 20 20 63 77 |yleMenu |):-. cw|
|000009d0| 5f 67 65 74 5f 69 74 65 | 6d 28 20 57 69 6e 2c 20 |_get_ite|m( Win, |
|000009e0| 73 74 79 6c 65 4d 65 6e | 75 2c 20 53 74 79 6c 65 |styleMen|u, Style|
|000009f0| 20 29 2c 0d 20 20 63 6f | 6e 76 65 72 74 5f 73 74 | ),. co|nvert_st|
|00000a00| 79 6c 65 73 28 20 53 74 | 79 6c 65 2c 20 53 74 79 |yles( St|yle, Sty|
|00000a10| 6c 65 46 6c 61 67 20 29 | 2c 0d 20 20 72 65 61 64 |leFlag )|,. read|
|00000a20| 5f 73 69 7a 65 28 20 57 | 69 6e 2c 20 53 69 7a 65 |_size( W|in, Size|
|00000a30| 20 29 2c 0d 20 20 63 77 | 5f 67 65 74 5f 69 74 65 | ),. cw|_get_ite|
|00000a40| 6d 28 20 57 69 6e 2c 20 | 64 6f 67 54 65 78 74 2c |m( Win, |dogText,|
|00000a50| 20 5f 2c 20 5f 2c 20 44 | 65 73 63 20 29 2c 0d 20 | _, _, D|esc ),. |
|00000a60| 20 44 65 73 63 20 3d 20 | 74 65 78 74 28 20 54 2c | Desc = |text( T,|
|00000a70| 4c 2c 44 2c 57 2c 20 46 | 6f 78 54 65 78 74 2c 20 |L,D,W, F|oxText, |
|00000a80| 46 6f 6e 74 2c 20 4f 6c | 64 53 69 7a 65 2c 20 4f |Font, Ol|dSize, O|
|00000a90| 6c 64 53 74 79 6c 65 2c | 20 43 6f 6c 6f 75 72 20 |ldStyle,| Colour |
|00000aa0| 29 2c 0d 20 20 4e 65 77 | 44 65 73 63 20 3d 20 74 |),. New|Desc = t|
|00000ab0| 65 78 74 28 20 54 2c 4c | 2c 44 2c 57 2c 20 46 6f |ext( T,L|,D,W, Fo|
|00000ac0| 78 54 65 78 74 2c 20 46 | 6f 6e 74 2c 20 53 69 7a |xText, F|ont, Siz|
|00000ad0| 65 2c 20 53 74 79 6c 65 | 46 6c 61 67 2c 20 43 6f |e, Style|Flag, Co|
|00000ae0| 6c 6f 75 72 20 29 2c 0d | 20 20 63 77 5f 61 64 64 |lour ),.| cw_add|
|00000af0| 5f 69 74 65 6d 28 20 57 | 69 6e 2c 20 64 6f 67 54 |_item( W|in, dogT|
|00000b00| 65 78 74 2c 20 4e 65 77 | 44 65 73 63 20 29 2e 0d |ext, New|Desc )..|
|00000b10| 0d 25 20 54 68 65 20 4f | 4b 20 42 75 74 74 6f 6e |.% The O|K Button|
|00000b20| 0d 66 6f 6e 74 43 6c 69 | 63 6b 65 72 28 20 57 69 |.fontCli|cker( Wi|
|00000b30| 6e 2c 20 6f 6b 42 75 74 | 74 6f 6e 20 29 3a 2d 0d |n, okBut|ton ):-.|
|00000b40| 20 20 63 77 5f 67 65 74 | 5f 69 74 65 6d 28 20 57 | cw_get|_item( W|
|00000b50| 69 6e 2c 20 66 6f 6e 74 | 50 6f 70 75 70 2c 20 46 |in, font|Popup, F|
|00000b60| 6f 6e 74 20 29 2c 0d 20 | 20 63 77 5f 67 65 74 5f |ont ),. | cw_get_|
|00000b70| 69 74 65 6d 28 20 57 69 | 6e 2c 20 63 6f 6c 50 6f |item( Wi|n, colPo|
|00000b80| 70 75 70 2c 20 43 6f 6c | 6f 75 72 20 29 2c 0d 20 |pup, Col|our ),. |
|00000b90| 20 63 77 5f 67 65 74 5f | 69 74 65 6d 28 20 57 69 | cw_get_|item( Wi|
|00000ba0| 6e 2c 20 73 74 79 6c 65 | 4d 65 6e 75 2c 20 53 74 |n, style|Menu, St|
|00000bb0| 79 6c 65 20 29 2c 0d 20 | 20 63 6f 6e 76 65 72 74 |yle ),. | convert|
|00000bc0| 5f 73 74 79 6c 65 73 28 | 20 53 74 79 6c 65 2c 20 |_styles(| Style, |
|00000bd0| 46 61 63 65 20 29 2c 0d | 20 20 72 65 61 64 5f 73 |Face ),.| read_s|
|00000be0| 69 7a 65 28 20 57 69 6e | 2c 20 53 69 7a 65 20 29 |ize( Win|, Size )|
|00000bf0| 2c 0d 20 20 77 72 69 74 | 65 6e 6c 28 20 27 43 68 |,. writ|enl( 'Ch|
|00000c00| 6f 73 65 6e 20 46 6f 6e | 74 27 28 20 46 6f 6e 74 |osen Fon|t'( Font|
|00000c10| 2c 20 53 69 7a 65 2c 20 | 46 61 63 65 2c 20 43 6f |, Size, |Face, Co|
|00000c20| 6c 6f 75 72 20 29 20 29 | 20 7e 3e 20 75 73 65 72 |lour ) )| ~> user|
|00000c30| 2c 0d 20 20 77 6b 69 6c | 6c 28 20 57 69 6e 20 29 |,. wkil|l( Win )|
|00000c40| 2e 0d 0d 25 20 54 68 65 | 20 43 61 6e 63 65 6c 20 |...% The| Cancel |
|00000c50| 42 75 74 74 6f 6e 0d 66 | 6f 6e 74 43 6c 69 63 6b |Button.f|ontClick|
|00000c60| 65 72 28 20 57 69 6e 2c | 20 65 6e 64 42 75 74 74 |er( Win,| endButt|
|00000c70| 6f 6e 20 29 3a 2d 0d 20 | 20 77 6b 69 6c 6c 28 20 |on ):-. | wkill( |
|00000c80| 57 69 6e 20 29 2e 0d 0d | 0d 2f 2a 20 52 65 61 64 |Win )...|./* Read|
|00000c90| 20 74 68 65 20 73 69 7a | 65 20 66 72 6f 6d 20 74 | the siz|e from t|
|00000ca0| 68 65 20 77 69 6e 64 6f | 77 27 73 20 28 6f 6e 6c |he windo|w's (onl|
|00000cb0| 79 29 20 65 64 69 74 20 | 66 69 65 6c 64 20 2a 2f |y) edit |field */|
|00000cc0| 0d 0d 72 65 61 64 5f 73 | 69 7a 65 28 20 57 69 6e |..read_s|ize( Win|
|00000cd0| 2c 20 53 69 7a 65 20 29 | 3a 2d 0d 20 20 63 75 72 |, Size )|:-. cur|
|00000ce0| 73 6f 72 28 20 57 69 6e | 2c 20 30 2c 20 30 20 29 |sor( Win|, 0, 0 )|
|00000cf0| 2c 0d 20 20 72 65 61 64 | 28 20 53 69 7a 65 20 29 |,. read|( Size )|
|00000d00| 20 3c 7e 20 57 69 6e 2c | 0d 20 20 69 6e 74 65 67 | <~ Win,|. integ|
|00000d10| 65 72 28 20 53 69 7a 65 | 20 29 2c 0d 20 20 21 2e |er( Size| ),. !.|
|00000d20| 0d 72 65 61 64 5f 73 69 | 7a 65 28 20 57 69 6e 2c |.read_si|ze( Win,|
|00000d30| 20 31 32 20 29 3a 2d 0d | 20 20 20 6d 65 73 73 61 | 12 ):-.| messa|
|00000d40| 67 65 28 20 5b 27 49 6e | 76 61 6c 69 64 20 66 6f |ge( ['In|valid fo|
|00000d50| 6e 74 20 73 69 7a 65 21 | 27 5d 20 29 2e 0d 0d 0d |nt size!|'] )....|
|00000d60| 2f 2a 20 4d 61 70 20 73 | 74 79 6c 65 20 6e 61 6d |/* Map s|tyle nam|
|00000d70| 65 73 20 74 6f 20 73 74 | 79 6c 65 20 69 6e 74 65 |es to st|yle inte|
|00000d80| 67 65 72 20 2a 2f 0d 0d | 63 6f 6e 76 65 72 74 5f |ger */..|convert_|
|00000d90| 73 74 79 6c 65 73 28 20 | 53 74 79 6c 65 73 2c 20 |styles( |Styles, |
|00000da0| 46 6c 61 67 20 29 3a 2d | 0d 20 20 20 20 20 63 6f |Flag ):-|. co|
|00000db0| 6e 76 65 72 74 5f 73 74 | 79 6c 65 31 28 20 53 74 |nvert_st|yle1( St|
|00000dc0| 79 6c 65 73 2c 20 30 2c | 20 46 6c 61 67 20 29 2e |yles, 0,| Flag ).|
|00000dd0| 0d 20 20 20 0d 63 6f 6e | 76 65 72 74 5f 73 74 79 |. .con|vert_sty|
|00000de0| 6c 65 31 28 20 5b 5d 2c | 20 46 6c 61 67 2c 20 46 |le1( [],| Flag, F|
|00000df0| 6c 61 67 20 29 2e 0d 63 | 6f 6e 76 65 72 74 5f 73 |lag )..c|onvert_s|
|00000e00| 74 79 6c 65 31 28 20 5b | 53 74 79 6c 65 7c 53 74 |tyle1( [|Style|St|
|00000e10| 79 6c 65 73 5d 2c 20 46 | 6c 61 67 30 2c 20 46 6c |yles], F|lag0, Fl|
|00000e20| 61 67 20 29 3a 2d 0d 20 | 20 20 6d 65 6d 62 65 72 |ag ):-. | member|
|00000e30| 28 20 53 74 79 6c 65 2d | 42 69 74 2c 20 5b 27 50 |( Style-|Bit, ['P|
|00000e40| 6c 61 69 6e 27 2d 30 2c | 20 27 42 6f 6c 64 27 2d |lain'-0,| 'Bold'-|
|00000e50| 31 2c 20 27 49 74 61 6c | 69 63 27 2d 32 2c 20 27 |1, 'Ital|ic'-2, '|
|00000e60| 55 6e 64 65 72 6c 69 6e | 65 27 2d 34 2c 0d 20 20 |Underlin|e'-4,. |
|00000e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e80| 20 27 4f 75 74 6c 69 6e | 65 27 2d 38 2c 20 27 53 | 'Outlin|e'-8, 'S|
|00000e90| 68 61 64 6f 77 27 2d 31 | 36 2c 20 27 43 6f 6e 64 |hadow'-1|6, 'Cond|
|00000ea0| 65 6e 73 65 27 2d 33 32 | 2c 20 27 45 78 74 65 6e |ense'-32|, 'Exten|
|00000eb0| 64 27 2d 36 34 5d 20 29 | 2c 0d 20 20 20 21 2c 0d |d'-64] )|,. !,.|
|00000ec0| 20 20 20 46 6c 61 67 31 | 20 69 73 20 46 6c 61 67 | Flag1| is Flag|
|00000ed0| 30 20 5c 2f 20 42 69 74 | 2c 0d 20 20 20 63 6f 6e |0 \/ Bit|,. con|
|00000ee0| 76 65 72 74 5f 73 74 79 | 6c 65 31 28 20 53 74 79 |vert_sty|le1( Sty|
|00000ef0| 6c 65 73 2c 20 46 6c 61 | 67 31 2c 20 46 6c 61 67 |les, Fla|g1, Flag|
|00000f00| 20 29 2e 0d 0d 0d 2f 2a | 20 54 68 65 20 74 65 78 | )..../*| The tex|
|00000f10| 74 20 74 6f 20 62 65 20 | 64 69 73 70 6c 61 79 65 |t to be |displaye|
|00000f20| 64 20 69 6e 20 74 68 65 | 20 73 61 6d 70 6c 65 20 |d in the| sample |
|00000f30| 74 65 78 74 20 66 69 65 | 6c 64 20 2a 2f 0d 0d 66 |text fie|ld */..f|
|00000f40| 6f 78 5f 74 65 78 74 28 | 20 27 54 68 65 20 71 75 |ox_text(| 'The qu|
|00000f50| 69 63 6b 20 62 72 6f 77 | 6e 20 66 6f 78 20 6a 75 |ick brow|n fox ju|
|00000f60| 6d 70 73 20 6f 76 65 72 | 20 74 68 65 20 6c 61 7a |mps over| the laz|
|00000f70| 79 20 64 6f 67 2e 27 20 | 29 2e 0d 0d 20 20 0d 0d |y dog.' |)... ..|
|00000f80| 20 20 20 0b 3c 45 44 49 | 4e 42 55 52 47 48 3e 00 | .<EDI|NBURGH>.|
|00000f90| 00 00 00 0b 3c 49 4e 54 | 45 52 50 52 45 54 3e 00 |....<INT|ERPRET>.|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fb0| 00 00 00 0a e6 6d 51 0e | c9 76 69 00 00 00 89 00 |.....mQ.|.vi.....|
|00000fc0| 00 00 1e 00 00 00 00 00 | 00 00 00 0b 4d 65 6e 75 |........|....Menu|
|00000fd0| 20 53 65 6c 65 63 74 72 | 3c 00 06 72 16 00 06 00 | Selectr|<..r....|
|00000fe0| 00 14 31 00 00 00 00 00 | 00 20 03 00 e4 40 c2 00 |..1.....|. ...@..|
|00000ff0| 06 73 7a 00 05 1c cc 00 | 3d 64 84 00 01 60 76 00 |.sz.....|=d...`v.|
|00001000| e4 40 c2 00 e4 41 52 40 | 81 08 e6 40 81 1e aa 00 |.@...AR@|...@....|
|00001010| 00 00 00 00 00 0b c2 00 | 00 00 00 00 00 10 00 00 |........|........|
|00001020| 00 00 00 00 00 0f cb 00 | 00 00 01 00 e4 41 3a 00 |........|.....A:.|
|00001030| 0b 12 0c 00 00 f3 80 00 | d7 8d 68 00 e4 41 6c 00 |........|..h..Al.|
|00001040| ea 4a 00 00 06 00 04 00 | 06 74 58 ff 00 00 12 00 |.J......|.tX.....|
|00001050| bf a9 18 00 e4 4d 2e 00 | c0 0a 3e 00 00 00 05 00 |.....M..|..>.....|
|00001060| e4 41 2a 00 be a9 6e 00 | e4 41 6c 00 e4 52 74 00 |.A*...n.|.Al..Rt.|
|00001070| cb 4b 8c 00 06 73 36 00 | 06 73 46 00 01 60 76 00 |.K...s6.|.sF..`v.|
|00001080| e4 41 3a 00 e4 41 3a 00 | 00 00 01 00 c0 0a 24 00 |.A:..A:.|......$.|
|00001090| b9 c1 26 00 c0 0a 30 00 | e2 b4 5e 00 00 00 00 00 |..&...0.|..^.....|
|000010a0| 05 a0 03 40 81 19 62 00 | 00 00 00 00 00 4d 34 00 |...@..b.|.....M4.|
|000010b0| c0 0a 1e 0b c2 bf 6a 00 | 00 01 01 00 d7 8d 68 00 |......j.|......h.|
|000010c0| 00 00 01 00 00 00 01 00 | 00 00 00 00 48 00 11 01 |........|....H...|
|000010d0| 70 02 28 00 00 00 0a 00 | 09 00 04 00 68 00 01 00 |p.(.....|....h...|
|000010e0| 00 00 00 00 00 08 70 b4 | 01 0d 2f 2a 0d 43 72 65 |......p.|../*.Cre|
|000010f0| 61 74 65 20 61 20 77 69 | 6e 64 6f 77 20 77 68 69 |ate a wi|ndow whi|
|00001100| 63 68 20 63 6f 6e 74 61 | 69 6e 73 20 61 20 6d 65 |ch conta|ins a me|
|00001110| 6e 75 20 6f 66 20 66 72 | 75 69 74 2e 0d 50 72 65 |nu of fr|uit..Pre|
|00001120| 73 73 20 61 6e 79 20 6b | 65 79 20 74 6f 20 67 6f |ss any k|ey to go|
|00001130| 20 74 6f 20 74 68 65 20 | 66 72 75 69 74 20 62 65 | to the |fruit be|
|00001140| 67 69 6e 6e 69 6e 67 20 | 77 69 74 68 20 74 68 61 |ginning |with tha|
|00001150| 74 20 6c 65 74 74 65 72 | 2e 0d 50 72 65 73 73 20 |t letter|..Press |
|00001160| 43 6f 6d 6d 61 6e 64 2d | 2e 20 74 6f 20 63 61 6e |Command-|. to can|
|00001170| 63 65 6c 2c 20 6f 72 20 | 52 65 74 75 72 6e 20 74 |cel, or |Return t|
|00001180| 6f 20 66 69 6e 69 73 68 | 2e 0d 52 75 6e 20 74 68 |o finish|..Run th|
|00001190| 65 20 71 75 65 72 79 0d | 0d 09 3a 2d 20 6d 73 63 |e query.|..:- msc|
|000011a0| 72 65 61 74 65 28 20 27 | 46 72 75 69 74 20 43 68 |reate( '|Fruit Ch|
|000011b0| 6f 69 63 65 27 20 29 2e | 0d 0d 2a 2f 0d 0d 6d 73 |oice' ).|..*/..ms|
|000011c0| 63 72 65 61 74 65 28 20 | 57 69 6e 20 29 3a 2d 0d |create( |Win ):-.|
|000011d0| 20 20 66 69 6e 64 61 6c | 6c 28 20 46 72 75 69 74 | findal|l( Fruit|
|000011e0| 2c 20 66 72 75 69 74 28 | 20 46 72 75 69 74 20 29 |, fruit(| Fruit )|
|000011f0| 2c 20 5b 41 7c 46 72 75 | 69 74 73 5d 20 29 2c 0d |, [A|Fru|its] ),.|
|00001200| 20 20 63 77 5f 63 72 65 | 61 74 65 28 20 57 69 6e | cw_cre|ate( Win|
|00001210| 2c 20 36 30 2c 37 30 2c | 31 30 30 2c 32 30 30 2c |, 60,70,|100,200,|
|00001220| 20 5b 64 69 61 6c 6f 67 | 2c 20 6e 6f 67 6f 61 77 | [dialog|, nogoaw|
|00001230| 61 79 2c 20 76 69 73 69 | 62 6c 65 5d 20 29 2c 0d |ay, visi|ble] ),.|
|00001240| 20 20 63 77 5f 61 64 64 | 5f 69 74 65 6d 28 20 57 | cw_add|_item( W|
|00001250| 69 6e 2c 20 6d 79 4d 65 | 6e 75 2c 20 6d 65 6e 75 |in, myMe|nu, menu|
|00001260| 28 20 31 30 2c 31 30 2c | 20 38 30 2c 20 31 31 30 |( 10,10,| 80, 110|
|00001270| 2c 20 5b 41 7c 46 72 75 | 69 74 73 5d 2c 20 41 20 |, [A|Fru|its], A |
|00001280| 29 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |) ),. c|w_add_it|
|00001290| 65 6d 28 20 57 69 6e 2c | 20 6f 6b 42 74 6e 2c 20 |em( Win,| okBtn, |
|000012a0| 62 6f 6c 64 62 75 74 74 | 6f 6e 28 20 32 30 2c 31 |boldbutt|on( 20,1|
|000012b0| 33 30 2c 20 32 38 2c 20 | 36 30 2c 20 27 4f 4b 27 |30, 28, |60, 'OK'|
|000012c0| 20 29 20 29 2c 0d 20 20 | 63 77 5f 61 64 64 5f 69 | ) ),. |cw_add_i|
|000012d0| 74 65 6d 28 20 57 69 6e | 2c 20 6e 6f 42 74 6e 2c |tem( Win|, noBtn,|
|000012e0| 20 62 75 74 74 6f 6e 28 | 20 36 30 2c 31 33 32 2c | button(| 60,132,|
|000012f0| 20 32 30 2c 20 35 36 2c | 20 27 43 61 6e 63 65 6c | 20, 56,| 'Cancel|
|00001300| 27 20 29 20 29 2c 0d 20 | 20 63 77 5f 73 65 74 5f |' ) ),. | cw_set_|
|00001310| 70 72 6f 67 72 61 6d 28 | 20 57 69 6e 2c 20 6b 65 |program(| Win, ke|
|00001320| 79 2c 20 66 72 75 69 74 | 73 65 6c 65 63 74 20 29 |y, fruit|select )|
|00001330| 2c 20 20 20 25 20 4b 65 | 79 70 72 65 73 73 20 70 |, % Ke|ypress p|
|00001340| 72 6f 67 72 61 6d 0d 20 | 20 63 77 5f 73 65 74 5f |rogram. | cw_set_|
|00001350| 70 72 6f 67 72 61 6d 28 | 20 57 69 6e 2c 20 63 6c |program(| Win, cl|
|00001360| 69 63 6b 2c 20 66 72 75 | 69 74 42 74 6e 20 29 2e |ick, fru|itBtn ).|
|00001370| 20 20 20 20 25 20 43 6c | 69 63 6b 20 70 72 6f 67 | % Cl|ick prog|
|00001380| 72 61 6d 0d 0d 66 72 75 | 69 74 73 65 6c 65 63 74 |ram..fru|itselect|
|00001390| 28 20 57 69 6e 2c 20 34 | 36 2c 20 32 35 36 20 29 |( Win, 4|6, 256 )|
|000013a0| 3a 2d 20 20 25 20 43 6f | 6d 6d 61 6e 64 2d 2e 0d |:- % Co|mmand-..|
|000013b0| 20 20 20 66 72 75 69 74 | 42 74 6e 28 20 57 69 6e | fruit|Btn( Win|
|000013c0| 2c 20 6e 6f 42 74 6e 20 | 29 2e 20 20 20 20 25 20 |, noBtn |). % |
|000013d0| 53 61 6d 65 20 61 73 20 | 43 61 6e 63 65 6c 0d 66 |Same as |Cancel.f|
|000013e0| 72 75 69 74 73 65 6c 65 | 63 74 28 20 57 69 6e 2c |ruitsele|ct( Win,|
|000013f0| 20 31 33 2c 20 5f 20 29 | 3a 2d 20 20 20 25 20 52 | 13, _ )|:- % R|
|00001400| 65 74 75 72 6e 0d 20 20 | 20 66 72 75 69 74 42 74 |eturn. | fruitBt|
|00001410| 6e 28 20 57 69 6e 2c 20 | 6f 6b 42 74 6e 20 29 2e |n( Win, |okBtn ).|
|00001420| 20 20 20 20 25 20 53 61 | 6d 65 20 61 73 20 4f 4b | % Sa|me as OK|
|00001430| 0d 66 72 75 69 74 73 65 | 6c 65 63 74 28 20 57 69 |.fruitse|lect( Wi|
|00001440| 6e 2c 20 33 2c 20 5f 20 | 29 3a 2d 20 20 20 20 25 |n, 3, _ |):- %|
|00001450| 20 45 6e 74 65 72 0d 20 | 20 20 66 72 75 69 74 42 | Enter. | fruitB|
|00001460| 74 6e 28 20 57 69 6e 2c | 20 6f 6b 42 74 6e 20 29 |tn( Win,| okBtn )|
|00001470| 2e 20 20 20 20 25 20 53 | 61 6d 65 20 61 73 20 4f |. % S|ame as O|
|00001480| 4b 0d 66 72 75 69 74 73 | 65 6c 65 63 74 28 20 57 |K.fruits|elect( W|
|00001490| 69 6e 2c 20 4b 65 79 2c | 20 4d 6f 64 73 20 29 3a |in, Key,| Mods ):|
|000014a0| 2d 0d 20 20 20 61 74 6d | 62 79 74 28 20 43 68 61 |-. atm|byt( Cha|
|000014b0| 72 2c 20 5b 4b 65 79 5d | 20 29 2c 0d 20 20 20 66 |r, [Key]| ),. f|
|000014c0| 72 75 69 74 28 20 46 72 | 75 69 74 20 29 2c 20 20 |ruit( Fr|uit ), |
|000014d0| 20 20 25 20 46 69 6e 64 | 20 61 20 66 72 75 69 74 | % Find| a fruit|
|000014e0| 2e 2e 2e 0d 20 20 20 63 | 61 74 28 20 43 68 61 72 |.... c|at( Char|
|000014f0| 73 2c 20 46 72 75 69 74 | 2c 20 5b 31 5d 20 29 2c |s, Fruit|, [1] ),|
|00001500| 0d 20 20 20 43 68 61 72 | 73 20 3d 20 5b 43 68 61 |. Char|s = [Cha|
|00001510| 72 7c 5f 5d 2c 20 20 20 | 25 2e 2e 2e 20 62 65 67 |r|_], |%... beg|
|00001520| 69 6e 6e 69 6e 67 20 77 | 69 74 68 20 74 68 69 73 |inning w|ith this|
|00001530| 20 6c 65 74 74 65 72 0d | 20 20 20 21 2c 0d 20 20 | letter.| !,. |
|00001540| 20 63 77 5f 73 65 74 5f | 69 74 65 6d 28 20 57 69 | cw_set_|item( Wi|
|00001550| 6e 2c 20 6d 79 4d 65 6e | 75 2c 20 5b 46 72 75 69 |n, myMen|u, [Frui|
|00001560| 74 5d 20 29 2e 0d 0d 66 | 72 75 69 74 42 74 6e 28 |t] )...f|ruitBtn(|
|00001570| 20 57 69 6e 2c 20 6f 6b | 42 74 6e 20 29 3a 2d 0d | Win, ok|Btn ):-.|
|00001580| 20 20 20 63 77 5f 67 65 | 74 5f 69 74 65 6d 28 20 | cw_ge|t_item( |
|00001590| 57 69 6e 2c 20 6d 79 4d | 65 6e 75 2c 20 46 72 75 |Win, myM|enu, Fru|
|000015a0| 69 74 53 65 6c 65 63 74 | 65 64 20 29 2c 0d 20 20 |itSelect|ed ),. |
|000015b0| 20 77 72 69 74 65 73 65 | 71 6e 6c 28 20 5b 27 46 | writese|qnl( ['F|
|000015c0| 72 75 69 74 20 2d 20 27 | 2c 20 46 72 75 69 74 53 |ruit - '|, FruitS|
|000015d0| 65 6c 65 63 74 65 64 5d | 20 29 20 7e 3e 20 75 73 |elected]| ) ~> us|
|000015e0| 65 72 2c 0d 20 20 20 77 | 6b 69 6c 6c 28 20 57 69 |er,. w|kill( Wi|
|000015f0| 6e 20 29 2e 0d 66 72 75 | 69 74 42 74 6e 28 20 57 |n )..fru|itBtn( W|
|00001600| 69 6e 2c 20 6e 6f 42 74 | 6e 20 29 3a 2d 0d 20 20 |in, noBt|n ):-. |
|00001610| 20 77 72 69 74 65 6e 6c | 28 20 27 4e 6f 20 66 72 | writenl|( 'No fr|
|00001620| 75 69 74 20 74 6f 64 61 | 79 27 20 29 20 7e 3e 20 |uit toda|y' ) ~> |
|00001630| 75 73 65 72 2c 0d 20 20 | 20 77 6b 69 6c 6c 28 20 |user,. | wkill( |
|00001640| 57 69 6e 20 29 2e 0d 0d | 0d 2f 2a 20 54 68 65 20 |Win )...|./* The |
|00001650| 66 72 75 69 74 73 20 2a | 2f 0d 66 72 75 69 74 28 |fruits *|/.fruit(|
|00001660| 20 61 70 70 6c 65 20 29 | 2e 0d 66 72 75 69 74 28 | apple )|..fruit(|
|00001670| 20 62 61 6e 61 6e 61 20 | 29 2e 0d 66 72 75 69 74 | banana |)..fruit|
|00001680| 28 20 63 68 65 72 72 79 | 20 29 2e 0d 66 72 75 69 |( cherry| )..frui|
|00001690| 74 28 20 64 61 6d 73 6f | 6e 20 29 2e 0d 66 72 75 |t( damso|n )..fru|
|000016a0| 69 74 28 20 65 6c 64 65 | 72 62 65 72 72 79 20 29 |it( elde|rberry )|
|000016b0| 2e 0d 66 72 75 69 74 28 | 20 66 69 67 20 29 2e 0d |..fruit(| fig )..|
|000016c0| 66 72 75 69 74 28 20 67 | 75 61 76 61 20 29 2e 0d |fruit( g|uava )..|
|000016d0| 66 72 75 69 74 28 20 68 | 75 63 6b 6c 65 62 65 72 |fruit( h|uckleber|
|000016e0| 72 79 20 29 2e 0d 66 72 | 75 69 74 28 20 27 69 6e |ry )..fr|uit( 'in|
|000016f0| 64 69 61 6e 20 62 65 72 | 72 79 27 20 29 2e 0d 66 |dian ber|ry' )..f|
|00001700| 72 75 69 74 28 20 6a 75 | 6e 69 70 65 72 20 29 2e |ruit( ju|niper ).|
|00001710| 0d 66 72 75 69 74 28 20 | 6b 75 6d 71 75 61 74 20 |.fruit( |kumquat |
|00001720| 29 2e 0d 66 72 75 69 74 | 28 20 6c 65 6d 6f 6e 20 |)..fruit|( lemon |
|00001730| 29 2e 0d 66 72 75 69 74 | 28 20 6d 61 6e 67 6f 20 |)..fruit|( mango |
|00001740| 29 2e 0d 66 72 75 69 74 | 28 20 6e 65 63 74 61 72 |)..fruit|( nectar|
|00001750| 69 6e 65 20 29 2e 0d 66 | 72 75 69 74 28 20 6f 72 |ine )..f|ruit( or|
|00001760| 61 6e 67 65 20 29 2e 0d | 66 72 75 69 74 28 20 70 |ange )..|fruit( p|
|00001770| 65 61 63 68 20 29 2e 0d | 66 72 75 69 74 28 20 71 |each )..|fruit( q|
|00001780| 75 69 6e 63 65 20 29 2e | 0d 66 72 75 69 74 28 20 |uince ).|.fruit( |
|00001790| 72 61 73 70 62 65 72 72 | 79 20 29 2e 0d 66 72 75 |raspberr|y )..fru|
|000017a0| 69 74 28 20 73 74 72 61 | 77 62 65 72 72 79 20 29 |it( stra|wberry )|
|000017b0| 2e 0d 66 72 75 69 74 28 | 20 74 61 6e 67 65 72 69 |..fruit(| tangeri|
|000017c0| 6e 65 20 29 2e 0d 66 72 | 75 69 74 28 20 27 75 67 |ne )..fr|uit( 'ug|
|000017d0| 6c 69 20 66 72 75 69 74 | 27 20 29 2e 0d 66 72 75 |li fruit|' )..fru|
|000017e0| 69 74 28 20 27 76 69 63 | 74 6f 72 69 61 20 70 6c |it( 'vic|toria pl|
|000017f0| 75 6d 27 20 29 2e 0d 66 | 72 75 69 74 28 20 77 61 |um' )..f|ruit( wa|
|00001800| 74 65 72 6d 65 6c 6f 6e | 20 29 2e 0d 66 72 75 69 |termelon| )..frui|
|00001810| 74 28 20 78 79 6c 6f 63 | 61 72 70 20 29 2e 0d 66 |t( xyloc|arp )..f|
|00001820| 72 75 69 74 28 20 79 65 | 6c 6c 6f 77 62 65 72 72 |ruit( ye|llowberr|
|00001830| 79 20 29 2e 0d 66 72 75 | 69 74 28 20 7a 75 63 63 |y )..fru|it( zucc|
|00001840| 68 69 6e 69 20 29 2e 0d | 0d 0d 2f 2a 20 41 20 70 |hini )..|../* A p|
|00001850| 72 6f 67 72 61 6d 20 74 | 6f 20 6d 61 6b 65 20 61 |rogram t|o make a|
|00001860| 6c 6c 20 6b 65 79 62 6f | 61 72 64 20 69 6e 70 75 |ll keybo|ard inpu|
|00001870| 74 0d 61 70 70 65 61 72 | 20 69 6e 20 75 70 70 65 |t.appear| in uppe|
|00001880| 72 20 63 61 73 65 0d 69 | 6e 20 61 20 43 6f 6e 74 |r case.i|n a Cont|
|00001890| 72 6f 6c 20 57 69 6e 64 | 6f 77 27 73 20 65 64 69 |rol Wind|ow's edi|
|000018a0| 74 20 66 69 65 6c 64 2e | 0d 2a 2f 0d 2f 2a 20 63 |t field.|.*/./* c|
|000018b0| 77 5f 73 65 74 5f 70 72 | 6f 67 72 61 6d 28 20 57 |w_set_pr|ogram( W|
|000018c0| 69 6e 2c 20 6b 65 79 2c | 20 74 6f 5f 75 70 70 65 |in, key,| to_uppe|
|000018d0| 72 20 29 20 2a 2f 0d 0d | 74 6f 5f 75 70 70 65 72 |r ) */..|to_upper|
|000018e0| 28 20 57 69 6e 2c 20 43 | 6f 64 65 2c 20 5f 20 29 |( Win, C|ode, _ )|
|000018f0| 3a 2d 0d 09 09 63 68 61 | 72 6f 66 28 20 43 68 61 |:-...cha|rof( Cha|
|00001900| 72 2c 20 43 6f 64 65 20 | 29 2c 0d 09 09 75 70 70 |r, Code |),...upp|
|00001910| 65 72 28 20 43 68 61 72 | 2c 20 55 43 68 61 72 20 |er( Char|, UChar |
|00001920| 29 2c 0d 09 09 63 68 61 | 72 6f 66 28 20 55 43 68 |),...cha|rof( UCh|
|00001930| 61 72 2c 20 55 43 6f 64 | 65 20 29 2c 0d 09 09 63 |ar, UCod|e ),...c|
|00001940| 77 5f 70 75 74 5f 6b 65 | 79 28 20 57 69 6e 2c 55 |w_put_ke|y( Win,U|
|00001950| 43 6f 64 65 20 29 2e 0d | 0d 0b 3c 45 44 49 4e 42 |Code )..|..<EDINB|
|00001960| 55 52 47 48 3e 00 00 00 | 00 0b 3c 49 4e 54 45 52 |URGH>...|..<INTER|
|00001970| 50 52 45 54 3e 00 00 00 | 00 00 00 00 00 00 00 00 |PRET>...|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 0a bb 5b a3 0e c9 76 |........|...[...v|
|00001990| 29 00 00 01 99 00 00 00 | 1e 00 00 00 00 00 00 00 |).......|........|
|000019a0| 00 0c 4e 65 77 20 43 74 | 72 6c 20 57 69 6e 3c 00 |..New Ct|rl Win<.|
|000019b0| 06 72 16 00 06 00 00 14 | 31 00 00 00 00 00 00 20 |.r......|1...... |
|000019c0| 03 00 e4 40 c2 00 06 73 | 7a 00 05 1c cc 00 3d 64 |...@...s|z.....=d|
|000019d0| 84 00 01 60 76 00 e4 40 | c2 00 e4 41 52 40 81 08 |...`v..@|...AR@..|
|000019e0| e6 40 81 1e aa 00 00 00 | 00 00 00 0b c2 00 00 00 |.@......|........|
|000019f0| 00 00 00 1a 00 00 00 00 | 00 00 00 19 a1 00 00 00 |........|........|
|00001a00| 01 00 e4 41 3a 00 0b 12 | 0c 00 00 f3 80 00 d7 8d |...A:...|........|
|00001a10| 68 00 e4 41 6c 00 ea 36 | 00 00 06 00 04 00 06 74 |h..Al..6|.......t|
|00001a20| 58 ff 00 00 12 00 bf a9 | 18 00 e4 4d 2e 00 c0 0a |X.......|...M....|
|00001a30| 3e 00 00 00 05 00 e4 41 | 2a 00 be a9 6e 00 e4 41 |>......A|*...n..A|
|00001a40| 6c 00 e4 52 74 00 cb 4b | 8c 00 06 73 36 00 06 73 |l..Rt..K|...s6..s|
|00001a50| 46 00 01 60 76 00 e4 41 | 3a 00 e4 41 3a 00 00 00 |F..`v..A|:..A:...|
|00001a60| 01 00 c0 0a 24 00 b9 c7 | 7a 00 c0 0a 30 00 e2 b4 |....$...|z...0...|
|00001a70| 5e 00 00 00 00 00 05 a0 | 03 40 81 19 62 00 00 00 |^.......|.@..b...|
|00001a80| 00 00 00 4d 34 00 c0 0a | 1e 0b c2 c5 be 00 00 01 |...M4...|........|
|00001a90| 01 00 d7 8d 68 00 00 00 | 01 00 00 00 01 00 00 00 |....h...|........|
|00001aa0| 00 00 58 00 16 01 7d 02 | 2d 00 00 00 0a 00 0a 00 |..X...}.|-.......|
|00001ab0| 16 00 68 00 01 00 00 00 | 00 00 00 12 cf b4 01 0d |..h.....|........|
|00001ac0| 2f 2a 20 41 20 43 6f 6e | 74 72 6f 6c 20 57 69 6e |/* A Con|trol Win|
|00001ad0| 64 6f 77 20 74 6f 20 63 | 72 65 61 74 65 20 61 20 |dow to c|reate a |
|00001ae0| 6e 65 77 20 43 6f 6e 74 | 72 6f 6c 20 57 69 6e 64 |new Cont|rol Wind|
|00001af0| 6f 77 21 0d 0d 52 75 6e | 20 74 68 65 20 71 75 65 |ow!..Run| the que|
|00001b00| 72 79 0d 09 20 20 20 20 | 3a 2d 20 6e 65 77 43 57 |ry.. |:- newCW|
|00001b10| 69 6e 2e 0d 0d 41 6c 73 | 6f 2c 20 73 77 69 74 63 |in...Als|o, switc|
|00001b20| 68 20 6f 6e 20 42 61 6c | 6c 6f 6f 6e 20 48 65 6c |h on Bal|loon Hel|
|00001b30| 70 20 61 6e 64 20 72 75 | 6e 20 74 68 65 20 6d 6f |p and ru|n the mo|
|00001b40| 75 73 65 20 6f 76 65 72 | 20 74 68 65 20 77 69 6e |use over| the win|
|00001b50| 64 6f 77 2e 0d 2a 2f 0d | 0d 0d 6e 65 77 43 57 69 |dow..*/.|..newCWi|
|00001b60| 6e 3a 2d 0d 20 20 57 20 | 3d 20 27 4e 65 77 20 43 |n:-. W |= 'New C|
|00001b70| 6f 6e 74 72 6f 6c 20 57 | 69 6e 64 6f 77 27 2c 0d |ontrol W|indow',.|
|00001b80| 20 20 69 73 5f 77 69 6e | 28 20 57 2c 20 63 74 72 | is_win|( W, ctr|
|00001b90| 6c 20 29 2c 0d 20 20 21 | 2c 0d 20 20 77 66 72 6f |l ),. !|,. wfro|
|00001ba0| 6e 74 28 20 57 20 29 2e | 0d 6e 65 77 43 57 69 6e |nt( W ).|.newCWin|
|00001bb0| 3a 2d 0d 20 20 57 20 3d | 20 27 4e 65 77 20 43 6f |:-. W =| 'New Co|
|00001bc0| 6e 74 72 6f 6c 20 57 69 | 6e 64 6f 77 27 2c 0d 20 |ntrol Wi|ndow',. |
|00001bd0| 20 63 77 5f 63 72 65 61 | 74 65 28 20 57 2c 20 35 | cw_crea|te( W, 5|
|00001be0| 30 2c 32 30 2c 32 30 38 | 2c 20 32 38 30 2c 20 5b |0,20,208|, 280, [|
|00001bf0| 76 69 73 69 62 6c 65 2c | 20 64 69 61 6c 6f 67 2c |visible,| dialog,|
|00001c00| 20 67 6f 61 77 61 79 5d | 20 29 2c 0d 20 20 63 77 | goaway]| ),. cw|
|00001c10| 5f 61 64 64 5f 69 74 65 | 6d 28 20 57 2c 20 63 72 |_add_ite|m( W, cr|
|00001c20| 65 61 74 65 42 74 6e 2c | 20 62 6f 6c 64 62 75 74 |eateBtn,| boldbut|
|00001c30| 74 6f 6e 28 20 31 37 34 | 2c 20 31 39 32 2c 20 32 |ton( 174|, 192, 2|
|00001c40| 38 2c 20 37 38 2c 20 27 | 43 72 65 61 74 65 27 20 |8, 78, '|Create' |
|00001c50| 29 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |) ),. c|w_add_it|
|00001c60| 65 6d 28 20 57 2c 20 65 | 6e 64 42 74 6e 2c 20 62 |em( W, e|ndBtn, b|
|00001c70| 75 74 74 6f 6e 28 20 31 | 37 38 2c 31 30 2c 32 30 |utton( 1|78,10,20|
|00001c80| 2c 37 30 2c 20 27 46 69 | 6e 69 73 68 27 20 29 20 |,70, 'Fi|nish' ) |
|00001c90| 29 2c 0d 20 20 63 77 5f | 61 64 64 5f 69 74 65 6d |),. cw_|add_item|
|00001ca0| 28 20 57 2c 20 5f 2c 20 | 74 65 78 74 28 20 31 30 |( W, _, |text( 10|
|00001cb0| 2c 31 30 2c 32 30 2c 31 | 31 30 2c 20 27 57 69 6e |,10,20,1|10, 'Win|
|00001cc0| 64 6f 77 20 6e 61 6d 65 | 3a 27 20 29 20 29 2c 0d |dow name|:' ) ),.|
|00001cd0| 20 20 63 77 5f 61 64 64 | 5f 69 74 65 6d 28 20 57 | cw_add|_item( W|
|00001ce0| 2c 20 6e 61 6d 65 45 64 | 2c 20 65 64 69 74 28 20 |, nameEd|, edit( |
|00001cf0| 31 30 2c 31 32 32 2c 32 | 30 2c 31 34 30 2c 20 27 |10,122,2|0,140, '|
|00001d00| 27 20 29 20 29 2c 0d 20 | 20 63 77 5f 61 64 64 5f |' ) ),. | cw_add_|
|00001d10| 69 74 65 6d 28 20 57 2c | 20 74 79 70 65 50 6f 70 |item( W,| typePop|
|00001d20| 2c 20 70 6f 70 75 70 28 | 20 34 30 2c 31 36 2c 32 |, popup(| 40,16,2|
|00001d30| 30 2c 32 32 30 2c 20 27 | 57 69 6e 64 6f 77 20 74 |0,220, '|Window t|
|00001d40| 79 70 65 3a 27 2c 20 5b | 64 6f 63 75 6d 65 6e 74 |ype:', [|document|
|00001d50| 2c 20 64 69 61 6c 6f 67 | 2c 20 61 6c 65 72 74 2c |, dialog|, alert,|
|00001d60| 20 70 6c 61 69 6e 2c 20 | 73 68 61 64 6f 77 65 64 | plain, |shadowed|
|00001d70| 5d 2c 20 64 69 61 6c 6f | 67 29 20 29 2c 0d 20 20 |], dialo|g) ),. |
|00001d80| 63 77 5f 61 64 64 5f 69 | 74 65 6d 28 20 57 2c 20 |cw_add_i|tem( W, |
|00001d90| 76 69 73 43 68 6b 2c 20 | 63 68 65 63 6b 28 20 36 |visChk, |check( 6|
|00001da0| 38 2c 33 30 2c 32 30 2c | 37 30 2c 20 27 56 69 73 |8,30,20,|70, 'Vis|
|00001db0| 69 62 6c 65 27 2c 20 6f | 6e 20 29 20 29 2c 0d 20 |ible', o|n ) ),. |
|00001dc0| 20 63 77 5f 61 64 64 5f | 69 74 65 6d 28 20 57 2c | cw_add_|item( W,|
|00001dd0| 20 67 6f 43 68 6b 2c 20 | 63 68 65 63 6b 28 20 36 | goChk, |check( 6|
|00001de0| 38 2c 31 38 30 2c 32 30 | 2c 37 30 2c 20 27 47 6f |8,180,20|,70, 'Go|
|00001df0| 61 77 61 79 27 2c 20 6f | 6e 20 29 20 29 2c 0d 20 |away', o|n ) ),. |
|00001e00| 20 63 77 5f 61 64 64 5f | 69 74 65 6d 28 20 57 2c | cw_add_|item( W,|
|00001e10| 20 5f 2c 20 74 65 78 74 | 28 20 31 31 32 2c 32 30 | _, text|( 112,20|
|00001e20| 2c 31 36 2c 35 30 2c 20 | 27 54 6f 70 3a 27 2c 20 |,16,50, |'Top:', |
|00001e30| 27 43 6f 75 72 69 65 72 | 27 2c 20 31 32 2c 20 31 |'Courier|', 12, 1|
|00001e40| 2c 20 72 65 64 20 29 20 | 29 2c 0d 20 20 63 77 5f |, red ) |),. cw_|
|00001e50| 61 64 64 5f 69 74 65 6d | 28 20 57 2c 20 74 6f 70 |add_item|( W, top|
|00001e60| 45 64 2c 20 65 64 69 74 | 28 20 31 31 32 2c 37 30 |Ed, edit|( 112,70|
|00001e70| 2c 32 30 2c 36 30 2c 20 | 27 27 2c 20 27 43 6f 75 |,20,60, |'', 'Cou|
|00001e80| 72 69 65 72 27 2c 20 31 | 32 2c 20 30 2c 20 62 6c |rier', 1|2, 0, bl|
|00001e90| 61 63 6b 20 29 20 29 2c | 0d 20 20 63 77 5f 61 64 |ack ) ),|. cw_ad|
|00001ea0| 64 5f 69 74 65 6d 28 20 | 57 2c 20 5f 2c 20 74 65 |d_item( |W, _, te|
|00001eb0| 78 74 28 20 31 33 36 2c | 32 30 2c 31 36 2c 35 30 |xt( 136,|20,16,50|
|00001ec0| 2c 20 27 4c 65 66 74 3a | 27 2c 20 27 43 6f 75 72 |, 'Left:|', 'Cour|
|00001ed0| 69 65 72 27 2c 20 31 32 | 2c 20 31 2c 20 72 65 64 |ier', 12|, 1, red|
|00001ee0| 20 29 20 29 2c 0d 20 20 | 63 77 5f 61 64 64 5f 69 | ) ),. |cw_add_i|
|00001ef0| 74 65 6d 28 20 57 2c 20 | 6c 65 66 74 45 64 2c 20 |tem( W, |leftEd, |
|00001f00| 65 64 69 74 28 20 31 33 | 36 2c 37 30 2c 32 30 2c |edit( 13|6,70,20,|
|00001f10| 36 30 2c 20 27 27 2c 20 | 27 43 6f 75 72 69 65 72 |60, '', |'Courier|
|00001f20| 27 2c 20 31 32 2c 20 30 | 2c 20 62 6c 61 63 6b 20 |', 12, 0|, black |
|00001f30| 29 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |) ),. c|w_add_it|
|00001f40| 65 6d 28 20 57 2c 20 5f | 2c 20 74 65 78 74 28 20 |em( W, _|, text( |
|00001f50| 31 31 32 2c 31 33 38 2c | 31 36 2c 35 34 2c 20 27 |112,138,|16,54, '|
|00001f60| 44 65 70 74 68 3a 27 2c | 20 27 43 6f 75 72 69 65 |Depth:',| 'Courie|
|00001f70| 72 27 2c 20 31 32 2c 20 | 31 2c 20 72 65 64 20 29 |r', 12, |1, red )|
|00001f80| 20 29 2c 0d 20 20 63 77 | 5f 61 64 64 5f 69 74 65 | ),. cw|_add_ite|
|00001f90| 6d 28 20 57 2c 20 64 65 | 70 74 68 45 64 2c 20 65 |m( W, de|pthEd, e|
|00001fa0| 64 69 74 28 20 31 31 32 | 2c 31 39 30 2c 32 30 2c |dit( 112|,190,20,|
|00001fb0| 36 30 2c 20 27 27 2c 20 | 27 43 6f 75 72 69 65 72 |60, '', |'Courier|
|00001fc0| 27 2c 20 31 32 2c 20 30 | 2c 20 62 6c 61 63 6b 20 |', 12, 0|, black |
|00001fd0| 29 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |) ),. c|w_add_it|
|00001fe0| 65 6d 28 20 57 2c 20 5f | 2c 20 74 65 78 74 28 20 |em( W, _|, text( |
|00001ff0| 31 33 36 2c 31 33 38 2c | 31 36 2c 35 34 2c 20 27 |136,138,|16,54, '|
|00002000| 57 69 64 74 68 3a 27 2c | 20 27 43 6f 75 72 69 65 |Width:',| 'Courie|
|00002010| 72 27 2c 20 31 32 2c 20 | 31 2c 20 72 65 64 20 29 |r', 12, |1, red )|
|00002020| 20 29 2c 0d 20 20 63 77 | 5f 61 64 64 5f 69 74 65 | ),. cw|_add_ite|
|00002030| 6d 28 20 57 2c 20 77 69 | 64 74 68 45 64 2c 20 65 |m( W, wi|dthEd, e|
|00002040| 64 69 74 28 20 31 33 36 | 2c 31 39 30 2c 32 30 2c |dit( 136|,190,20,|
|00002050| 36 30 2c 20 27 27 2c 20 | 27 43 6f 75 72 69 65 72 |60, '', |'Courier|
|00002060| 27 2c 20 31 32 2c 20 30 | 2c 20 62 6c 61 63 6b 20 |', 12, 0|, black |
|00002070| 29 20 29 2c 0d 20 20 63 | 77 5f 61 64 64 5f 69 74 |) ),. c|w_add_it|
|00002080| 65 6d 28 20 57 2c 20 72 | 42 6f 78 2c 20 62 6f 78 |em( W, r|Box, box|
|00002090| 28 20 39 38 2c 31 30 2c | 37 30 2c 32 36 30 20 29 |( 98,10,|70,260 )|
|000020a0| 20 29 2c 0d 20 20 63 77 | 5f 61 64 64 5f 69 74 65 | ),. cw|_add_ite|
|000020b0| 6d 28 20 57 2c 20 5f 2c | 20 74 65 78 74 28 20 39 |m( W, _,| text( 9|
|000020c0| 30 2c 36 36 2c 31 36 2c | 31 33 36 2c 20 27 20 50 |0,66,16,|136, ' P|
|000020d0| 6f 73 69 74 69 6f 6e 20 | 26 20 53 69 7a 65 27 2c |osition |& Size',|
|000020e0| 20 27 43 6f 75 72 69 65 | 72 27 2c 20 31 32 2c 20 | 'Courie|r', 12, |
|000020f0| 31 2c 20 72 65 64 20 29 | 20 29 2c 0d 20 20 63 77 |1, red )| ),. cw|
|00002100| 5f 73 65 74 5f 70 72 6f | 67 72 61 6d 28 20 57 2c |_set_pro|gram( W,|
|00002110| 20 63 6c 69 63 6b 2c 20 | 6d 79 43 57 63 72 65 61 | click, |myCWcrea|
|00002120| 74 65 20 29 2c 0d 20 20 | 63 77 5f 73 65 74 5f 70 |te ),. |cw_set_p|
|00002130| 72 6f 67 72 61 6d 28 20 | 57 2c 20 68 65 6c 70 2c |rogram( |W, help,|
|00002140| 20 6d 79 43 48 65 6c 70 | 20 29 2e 0d 0d 0d 2f 2a | myCHelp| )..../*|
|00002150| 20 54 68 65 20 63 6c 69 | 63 6b 20 70 72 6f 67 72 | The cli|ck progr|
|00002160| 61 6d 20 66 6f 72 20 4e | 65 77 20 43 6f 6e 74 72 |am for N|ew Contr|
|00002170| 6f 6c 20 57 69 6e 64 6f | 77 20 2a 2f 0d 0d 6d 79 |ol Windo|w */..my|
|00002180| 43 57 63 72 65 61 74 65 | 28 20 57 2c 20 63 72 65 |CWcreate|( W, cre|
|00002190| 61 74 65 42 74 6e 20 29 | 3a 2d 0d 20 20 20 57 20 |ateBtn )|:-. W |
|000021a0| 3d 20 27 4e 65 77 20 43 | 6f 6e 74 72 6f 6c 20 57 |= 'New C|ontrol W|
|000021b0| 69 6e 64 6f 77 27 2c 0d | 20 20 20 63 77 5f 67 65 |indow',.| cw_ge|
|000021c0| 74 5f 65 64 69 74 28 20 | 57 2c 20 43 75 72 45 64 |t_edit( |W, CurEd|
|000021d0| 69 74 20 29 2c 20 20 20 | 20 25 20 52 65 6d 65 6d |it ), | % Remem|
|000021e0| 62 65 72 20 63 75 72 72 | 65 6e 74 20 65 64 69 74 |ber curr|ent edit|
|000021f0| 20 66 69 65 6c 64 0d 20 | 20 20 63 77 5f 67 65 74 | field. | cw_get|
|00002200| 5f 69 74 65 6d 28 20 57 | 2c 20 6e 61 6d 65 45 64 |_item( W|, nameEd|
|00002210| 2c 20 57 69 6e 4e 61 6d | 65 20 29 2c 20 20 20 25 |, WinNam|e ), %|
|00002220| 20 47 65 74 20 77 69 6e | 64 6f 77 20 6e 61 6d 65 | Get win|dow name|
|00002230| 0d 20 20 20 57 69 6e 4e | 61 6d 65 20 5c 3d 20 27 |. WinN|ame \= '|
|00002240| 27 2c 0d 20 20 20 72 65 | 61 64 5f 65 64 69 74 28 |',. re|ad_edit(|
|00002250| 20 57 2c 20 74 6f 70 45 | 64 2c 20 54 6f 70 20 29 | W, topE|d, Top )|
|00002260| 2c 0d 20 20 20 72 65 61 | 64 5f 65 64 69 74 28 20 |,. rea|d_edit( |
|00002270| 57 2c 20 6c 65 66 74 45 | 64 2c 20 4c 65 66 74 20 |W, leftE|d, Left |
|00002280| 29 2c 0d 20 20 20 72 65 | 61 64 5f 65 64 69 74 28 |),. re|ad_edit(|
|00002290| 20 57 2c 20 64 65 70 74 | 68 45 64 2c 20 44 65 70 | W, dept|hEd, Dep|
|000022a0| 74 68 20 29 2c 0d 20 20 | 20 72 65 61 64 5f 65 64 |th ),. | read_ed|
|000022b0| 69 74 28 20 57 2c 20 77 | 69 64 74 68 45 64 2c 20 |it( W, w|idthEd, |
|000022c0| 57 69 64 74 68 20 29 2c | 0d 20 20 20 63 77 5f 73 |Width ),|. cw_s|
|000022d0| 65 74 5f 65 64 69 74 28 | 20 57 2c 20 43 75 72 45 |et_edit(| W, CurE|
|000022e0| 64 69 74 20 29 2c 20 20 | 20 20 25 20 52 65 73 65 |dit ), | % Rese|
|000022f0| 74 20 63 75 72 72 65 6e | 74 20 65 64 69 74 20 66 |t curren|t edit f|
|00002300| 69 65 6c 64 0d 20 20 20 | 69 6e 74 65 67 65 72 28 |ield. |integer(|
|00002310| 20 54 6f 70 20 29 2c 0d | 20 20 20 69 6e 74 65 67 | Top ),.| integ|
|00002320| 65 72 28 20 4c 65 66 74 | 20 29 2c 0d 20 20 20 69 |er( Left| ),. i|
|00002330| 6e 74 65 67 65 72 28 20 | 44 65 70 74 68 20 29 2c |nteger( |Depth ),|
|00002340| 0d 20 20 20 69 6e 74 65 | 67 65 72 28 20 57 69 64 |. inte|ger( Wid|
|00002350| 74 68 20 29 2c 0d 20 20 | 20 63 77 5f 67 65 74 5f |th ),. | cw_get_|
|00002360| 69 74 65 6d 28 20 57 2c | 20 76 69 73 43 68 6b 2c |item( W,| visChk,|
|00002370| 20 56 69 73 4f 6e 20 29 | 2c 0d 20 20 20 63 77 5f | VisOn )|,. cw_|
|00002380| 67 65 74 5f 69 74 65 6d | 28 20 57 2c 20 67 6f 43 |get_item|( W, goC|
|00002390| 68 6b 2c 20 47 6f 4f 6e | 20 29 2c 0d 20 20 20 63 |hk, GoOn| ),. c|
|000023a0| 77 5f 67 65 74 5f 69 74 | 65 6d 28 20 57 2c 20 74 |w_get_it|em( W, t|
|000023b0| 79 70 65 50 6f 70 2c 20 | 54 79 70 65 20 29 2c 0d |ypePop, |Type ),.|
|000023c0| 20 20 20 28 20 56 69 73 | 4f 6e 20 3d 20 6f 6e 20 | ( Vis|On = on |
|000023d0| 2d 3e 20 56 69 73 20 3d | 20 76 69 73 69 62 6c 65 |-> Vis =| visible|
|000023e0| 20 3b 20 56 69 73 20 3d | 20 69 6e 76 69 73 69 62 | ; Vis =| invisib|
|000023f0| 6c 65 20 29 2c 0d 20 20 | 20 28 20 47 6f 4f 6e 20 |le ),. | ( GoOn |
|00002400| 20 3d 20 6f 6e 20 2d 3e | 20 47 6f 20 20 3d 20 67 | = on ->| Go = g|
|00002410| 6f 61 77 61 79 20 20 3b | 20 47 6f 20 20 3d 20 6e |oaway ;| Go = n|
|00002420| 6f 67 6f 61 77 61 79 20 | 29 2c 0d 20 20 20 21 2c |ogoaway |),. !,|
|00002430| 0d 20 20 20 63 77 5f 63 | 72 65 61 74 65 28 20 57 |. cw_c|reate( W|
|00002440| 69 6e 4e 61 6d 65 2c 20 | 54 6f 70 2c 20 4c 65 66 |inName, |Top, Lef|
|00002450| 74 2c 20 44 65 70 74 68 | 2c 20 57 69 64 74 68 2c |t, Depth|, Width,|
|00002460| 20 5b 54 79 70 65 2c 20 | 56 69 73 2c 20 47 6f 5d | [Type, |Vis, Go]|
|00002470| 20 29 2e 0d 6d 79 43 57 | 63 72 65 61 74 65 28 20 | )..myCW|create( |
|00002480| 57 2c 20 63 72 65 61 74 | 65 42 74 6e 20 29 3a 2d |W, creat|eBtn ):-|
|00002490| 20 20 20 25 20 49 6e 76 | 61 6c 69 64 20 64 61 74 | % Inv|alid dat|
|000024a0| 61 0d 20 20 20 62 65 65 | 70 28 20 31 20 29 2e 0d |a. bee|p( 1 )..|
|000024b0| 0d 6d 79 43 57 63 72 65 | 61 74 65 28 20 57 2c 20 |.myCWcre|ate( W, |
|000024c0| 65 6e 64 42 74 6e 20 29 | 3a 2d 0d 20 20 20 77 6b |endBtn )|:-. wk|
|000024d0| 69 6c 6c 28 20 57 20 29 | 2e 0d 0d 72 65 61 64 5f |ill( W )|...read_|
|000024e0| 65 64 69 74 28 20 57 2c | 20 45 64 69 74 46 69 65 |edit( W,| EditFie|
|000024f0| 6c 64 2c 20 54 65 72 6d | 20 29 3a 2d 0d 20 20 20 |ld, Term| ):-. |
|00002500| 63 77 5f 73 65 74 5f 65 | 64 69 74 28 20 57 2c 20 |cw_set_e|dit( W, |
|00002510| 45 64 69 74 46 69 65 6c | 64 20 29 2c 0d 20 20 20 |EditFiel|d ),. |
|00002520| 77 6c 65 6e 28 20 57 2c | 20 4c 65 6e 20 29 2c 20 |wlen( W,| Len ), |
|00002530| 20 20 20 20 25 20 4c 65 | 6e 67 74 68 20 6f 66 20 | % Le|ngth of |
|00002540| 74 65 78 74 20 69 6e 20 | 66 69 65 6c 64 0d 20 20 |text in |field. |
|00002550| 20 4c 65 6e 20 3e 20 30 | 2c 0d 20 20 20 21 2c 0d | Len > 0|,. !,.|
|00002560| 20 20 20 63 75 72 73 6f | 72 28 20 57 2c 20 30 2c | curso|r( W, 0,|
|00002570| 20 30 20 29 2c 0d 20 20 | 20 72 65 61 64 28 20 54 | 0 ),. | read( T|
|00002580| 65 72 6d 20 29 20 3c 7e | 20 57 2e 0d 72 65 61 64 |erm ) <~| W..read|
|00002590| 5f 65 64 69 74 28 20 57 | 2c 20 45 64 69 74 46 69 |_edit( W|, EditFi|
|000025a0| 65 6c 64 2c 20 27 27 20 | 29 2e 0d 0d 2f 2a 20 54 |eld, '' |).../* T|
|000025b0| 68 65 20 62 61 6c 6c 6f | 6f 6e 20 68 65 6c 70 20 |he ballo|on help |
|000025c0| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 4e 65 77 20 |program |for New |
|000025d0| 43 6f 6e 74 72 6f 6c 20 | 57 69 6e 64 6f 77 20 2a |Control |Window *|
|000025e0| 2f 0d 0d 6d 79 43 48 65 | 6c 70 28 20 57 69 6e 2c |/..myCHe|lp( Win,|
|000025f0| 20 63 72 65 61 74 65 42 | 74 6e 2c 20 27 43 6c 69 | createB|tn, 'Cli|
|00002600| 63 6b 20 74 68 69 73 20 | 62 75 74 74 6f 6e 20 74 |ck this |button t|
|00002610| 6f 20 63 72 65 61 74 65 | 20 61 20 6e 65 77 20 43 |o create| a new C|
|00002620| 6f 6e 74 72 6f 6c 20 57 | 69 6e 64 6f 77 20 61 73 |ontrol W|indow as|
|00002630| 20 73 70 65 63 69 66 69 | 65 64 20 62 79 20 61 6c | specifi|ed by al|
|00002640| 6c 20 74 68 65 20 6f 74 | 68 65 72 20 66 69 65 6c |l the ot|her fiel|
|00002650| 64 73 2e 27 20 29 2e 0d | 6d 79 43 48 65 6c 70 28 |ds.' )..|myCHelp(|
|00002660| 20 57 69 6e 2c 20 65 6e | 64 42 74 6e 2c 20 27 43 | Win, en|dBtn, 'C|
|00002670| 6c 69 63 6b 20 74 68 69 | 73 20 62 75 74 74 6f 6e |lick thi|s button|
|00002680| 20 74 6f 20 6b 69 6c 6c | 20 74 68 69 73 20 77 69 | to kill| this wi|
|00002690| 6e 64 6f 77 2e 27 20 29 | 2e 0d 6d 79 43 48 65 6c |ndow.' )|..myCHel|
|000026a0| 70 28 20 57 69 6e 2c 20 | 6e 61 6d 65 45 64 2c 20 |p( Win, |nameEd, |
|000026b0| 54 65 78 74 20 29 3a 2d | 0d 20 20 20 20 54 31 20 |Text ):-|. T1 |
|000026c0| 3d 20 27 54 79 70 65 20 | 61 20 6e 61 6d 65 20 66 |= 'Type |a name f|
|000026d0| 6f 72 20 74 68 65 20 6e | 65 77 20 43 6f 6e 74 72 |or the n|ew Contr|
|000026e0| 6f 6c 20 57 69 6e 64 6f | 77 20 69 6e 20 74 68 69 |ol Windo|w in thi|
|000026f0| 73 20 65 64 69 74 20 66 | 69 65 6c 64 2e 27 2c 0d |s edit f|ield.',.|
|00002700| 20 20 20 20 65 64 69 74 | 5f 77 61 72 6e 69 6e 67 | edit|_warning|
|00002710| 28 20 57 69 6e 2c 20 6e | 61 6d 65 45 64 2c 20 54 |( Win, n|ameEd, T|
|00002720| 31 2c 20 54 65 78 74 20 | 29 2e 0d 6d 79 43 48 65 |1, Text |)..myCHe|
|00002730| 6c 70 28 20 57 69 6e 2c | 20 74 79 70 65 50 6f 70 |lp( Win,| typePop|
|00002740| 2c 20 27 53 65 6c 65 63 | 74 20 74 68 65 20 77 69 |, 'Selec|t the wi|
|00002750| 6e 64 6f 77 20 74 79 70 | 65 20 6f 66 20 74 68 65 |ndow typ|e of the|
|00002760| 20 6e 65 77 20 43 6f 6e | 74 72 6f 6c 20 57 69 6e | new Con|trol Win|
|00002770| 64 6f 77 20 66 72 6f 6d | 20 74 68 69 73 20 70 6f |dow from| this po|
|00002780| 70 75 70 20 6d 65 6e 75 | 2e 27 20 29 2e 0d 6d 79 |pup menu|.' )..my|
|00002790| 43 48 65 6c 70 28 20 57 | 69 6e 2c 20 76 69 73 43 |CHelp( W|in, visC|
|000027a0| 68 6b 2c 20 27 53 65 74 | 20 74 68 69 73 20 63 68 |hk, 'Set| this ch|
|000027b0| 65 63 6b 20 62 6f 78 20 | 74 6f 20 6f 6e 20 74 6f |eck box |to on to|
|000027c0| 20 6d 61 6b 65 20 74 68 | 65 20 6e 65 77 20 43 6f | make th|e new Co|
|000027d0| 6e 74 72 6f 6c 20 57 69 | 6e 64 6f 77 20 69 6e 69 |ntrol Wi|ndow ini|
|000027e0| 74 69 61 6c 6c 79 20 76 | 69 73 69 62 6c 65 2e 20 |tially v|isible. |
|000027f0| 53 65 74 20 69 74 20 74 | 6f 20 6f 66 66 20 66 6f |Set it t|o off fo|
|00002800| 72 20 61 6e 20 69 6e 76 | 69 73 69 62 6c 65 20 77 |r an inv|isible w|
|00002810| 69 6e 64 6f 77 2e 27 20 | 29 2e 0d 6d 79 43 48 65 |indow.' |)..myCHe|
|00002820| 6c 70 28 20 57 69 6e 2c | 20 67 6f 43 68 6b 2c 20 |lp( Win,| goChk, |
|00002830| 54 65 78 74 20 29 3a 2d | 0d 20 20 20 20 54 31 20 |Text ):-|. T1 |
|00002840| 3d 20 27 53 65 74 20 74 | 68 69 73 20 63 68 65 63 |= 'Set t|his chec|
|00002850| 6b 20 62 6f 78 20 74 6f | 20 6f 6e 20 66 6f 72 20 |k box to| on for |
|00002860| 74 68 65 20 6e 65 77 20 | 43 6f 6e 74 72 6f 6c 20 |the new |Control |
|00002870| 57 69 6e 64 6f 77 20 74 | 6f 20 68 61 76 65 20 61 |Window t|o have a|
|00002880| 20 67 6f 61 77 61 79 20 | 62 6f 78 2e 20 53 65 74 | goaway |box. Set|
|00002890| 20 69 74 20 74 6f 20 6f | 66 66 20 66 6f 72 20 6e | it to o|ff for n|
|000028a0| 6f 20 67 6f 61 77 61 79 | 20 62 6f 78 2e 27 20 2c |o goaway| box.' ,|
|000028b0| 0d 20 20 20 20 63 77 5f | 67 65 74 5f 69 74 65 6d |. cw_|get_item|
|000028c0| 28 20 57 69 6e 2c 20 74 | 79 70 65 50 6f 70 2c 20 |( Win, t|ypePop, |
|000028d0| 57 54 79 70 65 20 29 2c | 0d 20 20 20 20 28 20 6d |WType ),|. ( m|
|000028e0| 65 6d 62 65 72 28 20 57 | 54 79 70 65 2c 20 5b 61 |ember( W|Type, [a|
|000028f0| 6c 65 72 74 2c 20 70 6c | 61 69 6e 2c 20 73 68 61 |lert, pl|ain, sha|
|00002900| 64 6f 77 65 64 5d 20 29 | 0d 20 20 20 20 20 20 20 |dowed] )|. |
|00002910| 2d 3e 20 63 61 74 28 20 | 5b 27 7e 4d 28 42 75 74 |-> cat( |['~M(But|
|00002920| 20 6e 6f 74 65 20 74 68 | 61 74 20 79 6f 75 20 68 | note th|at you h|
|00002930| 61 76 65 20 77 69 6e 64 | 6f 77 20 74 79 70 65 20 |ave wind|ow type |
|00002940| 27 27 27 2c 20 57 54 79 | 70 65 2c 20 27 27 27 20 |''', WTy|pe, ''' |
|00002950| 63 75 72 72 65 6e 74 6c | 79 20 73 65 6c 65 63 74 |currentl|y select|
|00002960| 65 64 2c 20 77 68 69 63 | 68 20 63 61 6e 6e 6f 74 |ed, whic|h cannot|
|00002970| 20 68 61 76 65 20 61 20 | 67 6f 61 77 61 79 20 62 | have a |goaway b|
|00002980| 6f 78 2e 29 27 5d 2c 20 | 54 32 2c 20 5f 20 29 0d |ox.)'], |T2, _ ).|
|00002990| 20 20 20 20 20 20 20 3b | 20 54 32 20 3d 20 27 27 | ;| T2 = ''|
|000029a0| 20 29 2c 0d 20 20 20 21 | 2c 0d 20 20 20 63 61 74 | ),. !|,. cat|
|000029b0| 28 20 5b 54 31 2c 20 54 | 32 5d 2c 20 54 65 78 74 |( [T1, T|2], Text|
|000029c0| 2c 20 5f 20 29 2e 0d 6d | 79 43 48 65 6c 70 28 20 |, _ )..m|yCHelp( |
|000029d0| 57 69 6e 2c 20 74 6f 70 | 45 64 2c 20 54 65 78 74 |Win, top|Ed, Text|
|000029e0| 20 29 3a 2d 0d 20 20 20 | 20 54 31 20 3d 20 27 54 | ):-. | T1 = 'T|
|000029f0| 79 70 65 20 69 6e 20 68 | 65 72 65 20 74 68 65 20 |ype in h|ere the |
|00002a00| 64 69 73 74 61 6e 63 65 | 20 6f 66 20 74 68 65 20 |distance| of the |
|00002a10| 6e 65 77 20 43 6f 6e 74 | 72 6f 6c 20 57 69 6e 64 |new Cont|rol Wind|
|00002a20| 6f 77 20 66 72 6f 6d 20 | 74 68 65 20 74 6f 70 20 |ow from |the top |
|00002a30| 6f 66 20 74 68 65 20 73 | 63 72 65 65 6e 2e 27 2c |of the s|creen.',|
|00002a40| 0d 20 20 20 20 65 64 69 | 74 5f 77 61 72 6e 69 6e |. edi|t_warnin|
|00002a50| 67 28 20 57 69 6e 2c 20 | 74 6f 70 45 64 2c 20 54 |g( Win, |topEd, T|
|00002a60| 31 2c 20 54 65 78 74 20 | 29 2e 0d 6d 79 43 48 65 |1, Text |)..myCHe|
|00002a70| 6c 70 28 20 57 69 6e 2c | 20 6c 65 66 74 45 64 2c |lp( Win,| leftEd,|
|00002a80| 20 54 65 78 74 20 29 3a | 2d 0d 20 20 20 20 54 31 | Text ):|-. T1|
|00002a90| 20 3d 20 27 54 79 70 65 | 20 69 6e 20 68 65 72 65 | = 'Type| in here|
|00002aa0| 20 74 68 65 20 64 69 73 | 74 61 6e 63 65 20 6f 66 | the dis|tance of|
|00002ab0| 20 74 68 65 20 6e 65 77 | 20 43 6f 6e 74 72 6f 6c | the new| Control|
|00002ac0| 20 57 69 6e 64 6f 77 20 | 66 72 6f 6d 20 74 68 65 | Window |from the|
|00002ad0| 20 6c 65 66 74 20 6f 66 | 20 74 68 65 20 73 63 72 | left of| the scr|
|00002ae0| 65 65 6e 2e 27 2c 0d 20 | 20 20 20 65 64 69 74 5f |een.',. | edit_|
|00002af0| 77 61 72 6e 69 6e 67 28 | 20 57 69 6e 2c 20 6c 65 |warning(| Win, le|
|00002b00| 66 74 45 64 2c 20 54 31 | 2c 20 54 65 78 74 20 29 |ftEd, T1|, Text )|
|00002b10| 2e 0d 6d 79 43 48 65 6c | 70 28 20 57 69 6e 2c 20 |..myCHel|p( Win, |
|00002b20| 64 65 70 74 68 45 64 2c | 20 54 65 78 74 20 29 3a |depthEd,| Text ):|
|00002b30| 2d 0d 20 20 20 20 54 31 | 20 3d 20 27 54 79 70 65 |-. T1| = 'Type|
|00002b40| 20 69 6e 20 68 65 72 65 | 20 74 68 65 20 64 65 70 | in here| the dep|
|00002b50| 74 68 2c 20 69 6e 20 70 | 69 78 65 6c 73 2c 20 6f |th, in p|ixels, o|
|00002b60| 66 20 74 68 65 20 6e 65 | 77 20 43 6f 6e 74 72 6f |f the ne|w Contro|
|00002b70| 6c 20 57 69 6e 64 6f 77 | 2e 27 2c 0d 20 20 20 20 |l Window|.',. |
|00002b80| 65 64 69 74 5f 77 61 72 | 6e 69 6e 67 28 20 57 69 |edit_war|ning( Wi|
|00002b90| 6e 2c 20 64 65 70 74 68 | 45 64 2c 20 54 31 2c 20 |n, depth|Ed, T1, |
|00002ba0| 54 65 78 74 20 29 2e 0d | 6d 79 43 48 65 6c 70 28 |Text )..|myCHelp(|
|00002bb0| 20 57 69 6e 2c 20 77 69 | 64 74 68 45 64 2c 20 54 | Win, wi|dthEd, T|
|00002bc0| 65 78 74 20 29 3a 2d 0d | 20 20 20 20 54 31 20 3d |ext ):-.| T1 =|
|00002bd0| 20 27 54 79 70 65 20 69 | 6e 20 68 65 72 65 20 74 | 'Type i|n here t|
|00002be0| 68 65 20 77 69 64 74 68 | 2c 20 69 6e 20 70 69 78 |he width|, in pix|
|00002bf0| 65 6c 73 2c 20 6f 66 20 | 74 68 65 20 6e 65 77 20 |els, of |the new |
|00002c00| 43 6f 6e 74 72 6f 6c 20 | 57 69 6e 64 6f 77 2e 27 |Control |Window.'|
|00002c10| 2c 0d 20 20 20 20 65 64 | 69 74 5f 77 61 72 6e 69 |,. ed|it_warni|
|00002c20| 6e 67 28 20 57 69 6e 2c | 20 77 69 64 74 68 45 64 |ng( Win,| widthEd|
|00002c30| 2c 20 54 31 2c 20 54 65 | 78 74 20 29 2e 0d 6d 79 |, T1, Te|xt )..my|
|00002c40| 43 48 65 6c 70 28 20 57 | 69 6e 2c 20 49 74 65 6d |CHelp( W|in, Item|
|00002c50| 2c 20 54 65 78 74 20 29 | 3a 2d 0d 20 20 20 20 63 |, Text )|:-. c|
|00002c60| 77 5f 67 65 74 5f 69 74 | 65 6d 28 20 57 69 6e 2c |w_get_it|em( Win,|
|00002c70| 20 49 74 65 6d 2c 20 56 | 61 6c 2c 20 54 79 70 65 | Item, V|al, Type|
|00002c80| 2c 20 44 65 73 63 20 29 | 2c 0d 20 20 20 20 63 61 |, Desc )|,. ca|
|00002c90| 74 28 20 5b 27 54 68 69 | 73 20 69 73 20 61 20 27 |t( ['Thi|s is a '|
|00002ca0| 2c 20 54 79 70 65 2c 20 | 27 20 69 74 65 6d 2e 27 |, Type, |' item.'|
|00002cb0| 5d 2c 20 54 65 78 74 2c | 20 5f 20 29 2e 0d 0d 65 |], Text,| _ )...e|
|00002cc0| 64 69 74 5f 77 61 72 6e | 69 6e 67 28 20 57 69 6e |dit_warn|ing( Win|
|00002cd0| 2c 20 49 74 65 6d 2c 20 | 46 69 72 73 74 54 65 78 |, Item, |FirstTex|
|00002ce0| 74 2c 20 54 65 78 74 20 | 29 3a 2d 0d 20 20 20 63 |t, Text |):-. c|
|00002cf0| 77 5f 67 65 74 5f 69 74 | 65 6d 28 20 57 69 6e 2c |w_get_it|em( Win,|
|00002d00| 20 49 74 65 6d 2c 20 56 | 61 6c 20 29 2c 0d 20 20 | Item, V|al ),. |
|00002d10| 20 56 61 6c 20 3d 20 27 | 27 2c 0d 20 20 20 21 2c | Val = '|',. !,|
|00002d20| 0d 20 20 20 63 61 74 28 | 20 5b 46 69 72 73 74 54 |. cat(| [FirstT|
|00002d30| 65 78 74 2c 20 27 7e 4d | 59 6f 75 20 6d 75 73 74 |ext, '~M|You must|
|00002d40| 20 6e 6f 74 20 6c 65 61 | 76 65 20 74 68 69 73 20 | not lea|ve this |
|00002d50| 66 69 65 6c 64 20 62 6c | 61 6e 6b 21 27 5d 2c 20 |field bl|ank!'], |
|00002d60| 54 65 78 74 2c 20 5f 20 | 29 2e 0d 65 64 69 74 5f |Text, _ |)..edit_|
|00002d70| 77 61 72 6e 69 6e 67 28 | 20 5f 2c 20 5f 2c 20 54 |warning(| _, _, T|
|00002d80| 65 78 74 2c 20 54 65 78 | 74 20 29 2e 0d 0d 0b 3c |ext, Tex|t )....<|
|00002d90| 45 44 49 4e 42 55 52 47 | 48 3e 00 00 00 00 0b 3c |EDINBURG|H>.....<|
|00002da0| 49 4e 54 45 52 50 52 45 | 54 3e 00 00 00 00 00 00 |INTERPRE|T>......|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a e7 |........|........|
|00002dc0| 6c 71 0f 0b 59 e1 00 00 | 00 cd 00 00 00 1e 00 00 |lq..Y...|........|
|00002dd0| 00 00 00 00 00 00 0f 50 | 61 73 73 77 6f 72 64 20 |.......P|assword |
|00002de0| 44 69 61 6c 6f 67 72 16 | 00 06 00 00 14 31 00 00 |Dialogr.|.....1..|
|00002df0| 00 00 00 00 20 03 00 e4 | 40 c2 00 06 73 7a 00 05 |.... ...|@...sz..|
|00002e00| 1c cc 00 3d 64 84 00 01 | 60 76 00 e4 40 c2 00 e4 |...=d...|`v..@...|
|00002e10| 41 52 40 81 08 e6 40 81 | 1e aa 00 00 00 00 00 00 |AR@...@.|........|
|00002e20| 0b c2 00 00 00 00 00 00 | 2e 00 00 00 00 00 00 00 |........|........|
|00002e30| 2d d6 00 00 00 01 00 e4 | 41 3a 00 0b 12 0c 00 00 |-.......|A:......|
|00002e40| f3 80 00 d7 8d 68 00 e4 | 41 6c 00 ea 46 00 00 06 |.....h..|Al..F...|
|00002e50| 00 04 00 06 74 58 ff 00 | 00 12 00 bf a9 18 00 e4 |....tX..|........|
|00002e60| 4d 2e 00 c0 0a 3e 00 00 | 00 05 00 e4 41 2a 00 be |M....>..|....A*..|
|00002e70| a9 6e 00 e4 41 6c 00 e4 | 52 74 00 cb 4b 8c 00 06 |.n..Al..|Rt..K...|
|00002e80| 73 36 00 06 73 46 00 01 | 60 76 00 e4 41 3a 00 e4 |s6..sF..|`v..A:..|
|00002e90| 41 3a 00 00 00 01 00 c0 | 0a 24 00 b9 cd ce 00 c0 |A:......|.$......|
|00002ea0| 0a 30 00 e2 b4 5e 00 00 | 00 00 00 05 a0 03 40 81 |.0...^..|......@.|
|00002eb0| 19 62 00 00 00 00 00 00 | 4d 34 00 c0 0a 1e 0b c2 |.b......|M4......|
|00002ec0| cc 12 00 00 01 01 00 d7 | 8d 68 00 00 00 01 00 00 |........|.h......|
|00002ed0| 00 01 00 00 00 00 00 6b | 00 1d 01 8f 02 32 00 00 |.......k|.....2..|
|00002ee0| 00 0a 00 0a 00 16 00 68 | 00 01 00 00 00 00 00 00 |.......h|........|
|00002ef0| 08 3f b4 01 0d 2f 2a 0d | 41 20 70 61 73 73 77 6f |.?.../*.|A passwo|
|00002f00| 72 64 20 22 64 69 61 6c | 6f 67 22 2e 0d 57 68 65 |rd "dial|og"..Whe|
|00002f10| 6e 20 74 68 65 20 75 73 | 65 72 20 74 79 70 65 73 |n the us|er types|
|00002f20| 20 61 20 70 61 73 73 77 | 6f 72 64 2c 0d 6f 6e 6c | a passw|ord,.onl|
|00002f30| 79 20 27 62 75 6c 6c 65 | 74 73 27 20 61 70 70 65 |y 'bulle|ts' appe|
|00002f40| 61 72 20 69 6e 20 74 68 | 65 20 65 64 69 74 20 66 |ar in th|e edit f|
|00002f50| 69 65 6c 64 2e 0d 57 68 | 65 6e 20 74 68 65 20 75 |ield..Wh|en the u|
|00002f60| 73 65 72 20 70 72 65 73 | 73 65 73 20 52 65 74 75 |ser pres|ses Retu|
|00002f70| 72 6e 20 6f 72 20 74 68 | 65 20 4f 4b 20 62 75 74 |rn or th|e OK but|
|00002f80| 74 6f 6e 2c 0d 74 68 65 | 20 70 61 73 73 77 6f 72 |ton,.the| passwor|
|00002f90| 64 20 69 73 20 76 61 6c | 69 64 61 74 65 64 2e 0d |d is val|idated..|
|00002fa0| 49 66 20 69 74 27 73 20 | 6e 6f 74 20 76 61 6c 69 |If it's |not vali|
|00002fb0| 64 2c 20 74 68 65 20 61 | 6c 65 72 74 20 63 6c 65 |d, the a|lert cle|
|00002fc0| 61 72 73 0d 61 6e 64 20 | 74 68 65 79 20 6d 75 73 |ars.and |they mus|
|00002fd0| 74 20 73 74 61 72 74 20 | 61 67 61 69 6e 2e 0d 49 |t start |again..I|
|00002fe0| 66 20 69 74 20 69 73 20 | 76 61 6c 69 64 2c 20 74 |f it is |valid, t|
|00002ff0| 68 65 20 61 6c 65 72 74 | 20 64 69 73 61 70 70 65 |he alert| disappe|
|00003000| 61 72 73 2e 0d 0d 28 41 | 20 72 65 63 6f 67 6e 69 |ars...(A| recogni|
|00003010| 73 65 64 20 70 61 73 73 | 77 6f 72 64 20 69 73 20 |sed pass|word is |
|00003020| 77 6f 6d 62 61 74 29 2e | 0d 0d 52 75 6e 20 74 68 |wombat).|..Run th|
|00003030| 65 20 71 75 65 72 79 0d | 0d 09 3a 2d 20 70 77 64 |e query.|..:- pwd|
|00003040| 2e 0d 0d 2a 2f 0d 0d 70 | 77 64 3a 2d 0d 20 20 20 |...*/..p|wd:-. |
|00003050| 57 69 6e 20 3d 20 27 4c | 6f 67 20 6f 6e 27 2c 0d |Win = 'L|og on',.|
|00003060| 20 20 20 63 77 5f 63 72 | 65 61 74 65 28 20 57 69 | cw_cr|eate( Wi|
|00003070| 6e 2c 20 31 30 30 2c 20 | 31 30 30 2c 20 31 30 30 |n, 100, |100, 100|
|00003080| 2c 20 32 32 30 2c 20 5b | 61 6c 65 72 74 2c 20 76 |, 220, [|alert, v|
|00003090| 69 73 69 62 6c 65 5d 20 | 20 29 2c 0d 20 20 20 63 |isible] | ),. c|
|000030a0| 77 5f 61 64 64 5f 69 74 | 65 6d 28 20 57 69 6e 2c |w_add_it|em( Win,|
|000030b0| 20 6f 6b 42 74 6e 2c 20 | 20 20 20 20 62 6f 6c 64 | okBtn, | bold|
|000030c0| 62 75 74 74 6f 6e 28 36 | 34 2c 31 34 30 2c 32 36 |button(6|4,140,26|
|000030d0| 2c 37 30 2c 20 27 4f 4b | 27 29 20 29 2c 0d 20 20 |,70, 'OK|') ),. |
|000030e0| 20 63 77 5f 61 64 64 5f | 69 74 65 6d 28 20 57 69 | cw_add_|item( Wi|
|000030f0| 6e 2c 20 63 61 6e 63 65 | 6c 42 74 6e 2c 20 62 75 |n, cance|lBtn, bu|
|00003100| 74 74 6f 6e 28 36 37 2c | 31 30 2c 32 30 2c 37 30 |tton(67,|10,20,70|
|00003110| 2c 20 27 43 61 6e 63 65 | 6c 27 29 20 29 2c 0d 20 |, 'Cance|l') ),. |
|00003120| 20 20 63 77 5f 61 64 64 | 5f 69 74 65 6d 28 20 57 | cw_add|_item( W|
|00003130| 69 6e 2c 20 74 31 2c 20 | 20 20 20 20 20 20 20 74 |in, t1, | t|
|00003140| 65 78 74 28 31 30 2c 31 | 30 2c 32 30 2c 32 30 30 |ext(10,1|0,20,200|
|00003150| 2c 20 27 50 6c 65 61 73 | 65 20 65 6e 74 65 72 20 |, 'Pleas|e enter |
|00003160| 79 6f 75 72 20 70 61 73 | 73 77 6f 72 64 3a 27 29 |your pas|sword:')|
|00003170| 20 29 2c 0d 20 20 20 63 | 77 5f 61 64 64 5f 69 74 | ),. c|w_add_it|
|00003180| 65 6d 28 20 57 69 6e 2c | 20 70 45 64 69 74 2c 20 |em( Win,| pEdit, |
|00003190| 20 20 20 20 65 64 69 74 | 28 33 32 2c 31 30 2c 32 | edit|(32,10,2|
|000031a0| 30 2c 32 30 30 2c 20 27 | 27 29 20 29 2c 0d 20 20 |0,200, '|') ),. |
|000031b0| 20 73 65 74 5f 70 72 6f | 70 28 20 57 69 6e 2c 20 | set_pro|p( Win, |
|000031c0| 70 61 73 73 77 6f 72 64 | 2c 20 5b 5d 20 29 2c 20 |password|, [] ), |
|000031d0| 20 20 25 20 49 6e 69 74 | 69 61 6c 69 73 65 20 70 | % Init|ialise p|
|000031e0| 61 73 73 77 6f 72 64 0d | 20 20 20 63 77 5f 73 65 |assword.| cw_se|
|000031f0| 74 5f 70 72 6f 67 72 61 | 6d 28 20 57 69 6e 2c 20 |t_progra|m( Win, |
|00003200| 63 6c 69 63 6b 2c 20 63 | 6f 6c 6c 65 63 74 5f 70 |click, c|ollect_p|
|00003210| 77 64 20 29 2c 20 20 20 | 20 25 20 54 68 65 20 63 |wd ), | % The c|
|00003220| 6c 69 63 6b 20 70 72 6f | 67 72 61 6d 0d 20 20 20 |lick pro|gram. |
|00003230| 63 77 5f 73 65 74 5f 70 | 72 6f 67 72 61 6d 28 20 |cw_set_p|rogram( |
|00003240| 57 69 6e 2c 20 6b 65 79 | 2c 20 63 6f 6c 6c 65 63 |Win, key|, collec|
|00003250| 74 5f 63 68 61 72 20 29 | 2e 20 20 20 20 25 20 54 |t_char )|. % T|
|00003260| 68 65 20 6b 65 79 70 72 | 65 73 73 20 70 72 6f 67 |he keypr|ess prog|
|00003270| 72 61 6d 0d 0d 25 20 54 | 68 65 20 6b 65 79 20 70 |ram..% T|he key p|
|00003280| 72 6f 67 72 61 6d 0d 63 | 6f 6c 6c 65 63 74 5f 63 |rogram.c|ollect_c|
|00003290| 68 61 72 28 20 57 69 6e | 2c 20 31 33 2c 20 5f 20 |har( Win|, 13, _ |
|000032a0| 29 3a 2d 20 20 20 25 20 | 52 65 74 75 72 6e 20 6b |):- % |Return k|
|000032b0| 65 79 0d 20 20 20 21 2c | 0d 20 20 20 63 6f 6c 6c |ey. !,|. coll|
|000032c0| 65 63 74 5f 70 77 64 28 | 20 57 69 6e 2c 20 6f 6b |ect_pwd(| Win, ok|
|000032d0| 42 74 6e 20 29 2e 20 20 | 20 25 20 4c 65 74 20 52 |Btn ). | % Let R|
|000032e0| 65 74 75 72 6e 20 62 65 | 20 65 71 75 69 76 61 6c |eturn be| equival|
|000032f0| 65 6e 74 20 74 6f 20 4f | 4b 0d 63 6f 6c 6c 65 63 |ent to O|K.collec|
|00003300| 74 5f 63 68 61 72 28 20 | 57 69 6e 2c 20 33 2c 20 |t_char( |Win, 3, |
|00003310| 5f 20 29 3a 2d 20 20 20 | 25 20 45 6e 74 65 72 20 |_ ):- |% Enter |
|00003320| 6b 65 79 0d 20 20 20 21 | 2c 0d 20 20 20 63 6f 6c |key. !|,. col|
|00003330| 6c 65 63 74 5f 70 77 64 | 28 20 57 69 6e 2c 20 6f |lect_pwd|( Win, o|
|00003340| 6b 42 74 6e 20 29 2e 20 | 20 20 25 20 4c 65 74 20 |kBtn ). | % Let |
|00003350| 45 6e 74 65 72 20 62 65 | 20 65 71 75 69 76 61 6c |Enter be| equival|
|00003360| 65 6e 74 20 74 6f 20 4f | 4b 0d 63 6f 6c 6c 65 63 |ent to O|K.collec|
|00003370| 74 5f 63 68 61 72 28 20 | 57 69 6e 2c 20 34 36 2c |t_char( |Win, 46,|
|00003380| 20 32 35 36 20 29 3a 2d | 20 20 20 25 20 43 6f 6d | 256 ):-| % Com|
|00003390| 6d 61 6e 64 2d 2e 0d 20 | 20 20 21 2c 0d 20 20 20 |mand-.. | !,. |
|000033a0| 63 6f 6c 6c 65 63 74 5f | 70 77 64 28 20 57 69 6e |collect_|pwd( Win|
|000033b0| 2c 20 63 61 6e 63 65 6c | 42 74 6e 20 29 2e 20 20 |, cancel|Btn ). |
|000033c0| 20 25 20 4c 65 74 20 43 | 6f 6d 6d 61 6e 64 2d 2e | % Let C|ommand-.|
|000033d0| 20 62 65 20 65 71 75 69 | 76 61 6c 65 6e 74 20 74 | be equi|valent t|
|000033e0| 6f 20 43 61 6e 63 65 6c | 0d 63 6f 6c 6c 65 63 74 |o Cancel|.collect|
|000033f0| 5f 63 68 61 72 28 20 57 | 69 6e 2c 20 43 6f 64 65 |_char( W|in, Code|
|00003400| 2c 20 5f 20 29 3a 2d 0d | 20 20 20 67 65 74 5f 70 |, _ ):-.| get_p|
|00003410| 72 6f 70 28 20 57 69 6e | 2c 20 70 61 73 73 77 6f |rop( Win|, passwo|
|00003420| 72 64 2c 20 50 57 6f 72 | 64 53 6f 46 61 72 20 29 |rd, PWor|dSoFar )|
|00003430| 2c 0d 20 20 20 73 65 74 | 5f 70 72 6f 70 28 20 57 |,. set|_prop( W|
|00003440| 69 6e 2c 20 70 61 73 73 | 77 6f 72 64 2c 20 5b 43 |in, pass|word, [C|
|00003450| 6f 64 65 7c 50 57 6f 72 | 64 53 6f 46 61 72 5d 20 |ode|PWor|dSoFar] |
|00003460| 29 2c 20 20 25 20 41 64 | 64 20 74 6f 20 70 61 73 |), % Ad|d to pas|
|00003470| 73 77 6f 72 64 0d 20 20 | 20 77 72 69 74 65 28 20 |sword. | write( |
|00003480| 27 a5 27 20 29 20 7e 3e | 20 57 69 6e 2e 20 20 20 |'.' ) ~>| Win. |
|00003490| 20 20 25 20 57 72 69 74 | 65 20 61 20 62 75 6c 6c | % Writ|e a bull|
|000034a0| 65 74 20 74 6f 20 65 64 | 69 74 20 66 69 65 6c 64 |et to ed|it field|
|000034b0| 0d 0d 25 20 54 68 65 20 | 63 6c 69 63 6b 20 70 72 |..% The |click pr|
|000034c0| 6f 67 72 61 6d 0d 63 6f | 6c 6c 65 63 74 5f 70 77 |ogram.co|llect_pw|
|000034d0| 64 28 20 57 69 6e 2c 20 | 6f 6b 42 74 6e 20 29 3a |d( Win, |okBtn ):|
|000034e0| 2d 0d 20 20 20 67 65 74 | 5f 70 72 6f 70 28 20 57 |-. get|_prop( W|
|000034f0| 69 6e 2c 20 70 61 73 73 | 77 6f 72 64 2c 20 50 61 |in, pass|word, Pa|
|00003500| 73 73 57 6f 72 64 42 79 | 74 65 73 20 29 2c 0d 20 |ssWordBy|tes ),. |
|00003510| 20 20 72 65 76 65 72 73 | 65 28 20 50 61 73 73 57 | revers|e( PassW|
|00003520| 6f 72 64 42 79 74 65 73 | 2c 20 50 57 44 42 73 20 |ordBytes|, PWDBs |
|00003530| 29 2c 20 20 25 20 50 75 | 74 20 69 6e 20 72 69 67 |), % Pu|t in rig|
|00003540| 68 74 20 6f 72 64 65 72 | 0d 20 20 20 6e 61 6d 65 |ht order|. name|
|00003550| 28 20 50 61 73 73 57 6f | 72 64 2c 20 50 57 44 42 |( PassWo|rd, PWDB|
|00003560| 73 20 29 2c 20 20 20 20 | 20 20 20 25 20 43 6f 6e |s ), | % Con|
|00003570| 76 65 72 74 20 74 6f 20 | 61 6e 20 61 74 6f 6d 0d |vert to |an atom.|
|00003580| 20 20 20 63 68 65 63 6b | 5f 70 61 73 73 77 6f 72 | check|_passwor|
|00003590| 64 28 20 50 61 73 73 57 | 6f 72 64 20 29 2c 20 20 |d( PassW|ord ), |
|000035a0| 20 20 25 20 56 61 6c 69 | 64 61 74 65 20 69 74 0d | % Vali|date it.|
|000035b0| 20 20 20 21 2c 0d 20 20 | 20 77 6b 69 6c 6c 28 20 | !,. | wkill( |
|000035c0| 57 69 6e 20 29 2e 20 20 | 20 25 20 49 66 20 4f 6b |Win ). | % If Ok|
|000035d0| 2c 20 6b 69 6c 6c 20 77 | 69 6e 64 6f 77 0d 63 6f |, kill w|indow.co|
|000035e0| 6c 6c 65 63 74 5f 70 77 | 64 28 20 57 69 6e 2c 20 |llect_pw|d( Win, |
|000035f0| 6f 6b 42 74 6e 20 29 3a | 2d 20 20 20 20 20 25 20 |okBtn ):|- % |
|00003600| 49 6e 76 61 6c 69 64 20 | 70 61 73 73 77 6f 72 64 |Invalid |password|
|00003610| 0d 20 20 20 21 2c 0d 20 | 20 20 62 65 65 70 28 31 |. !,. | beep(1|
|00003620| 29 2c 0d 20 20 20 73 65 | 74 5f 70 72 6f 70 28 20 |),. se|t_prop( |
|00003630| 57 69 6e 2c 20 70 61 73 | 73 77 6f 72 64 2c 20 5b |Win, pas|sword, [|
|00003640| 5d 20 29 2c 20 20 20 25 | 20 52 65 73 74 61 72 74 |] ), %| Restart|
|00003650| 2e 2e 2e 0d 09 20 20 63 | 77 5f 73 65 74 5f 69 74 |..... c|w_set_it|
|00003660| 65 6d 28 20 57 69 6e 2c | 20 70 45 64 69 74 2c 20 |em( Win,| pEdit, |
|00003670| 27 27 20 29 2e 0d 63 6f | 6c 6c 65 63 74 5f 70 77 |'' )..co|llect_pw|
|00003680| 64 28 20 57 69 6e 2c 20 | 63 61 6e 63 65 6c 42 74 |d( Win, |cancelBt|
|00003690| 6e 20 29 3a 2d 20 20 20 | 20 20 25 20 43 61 6e 63 |n ):- | % Canc|
|000036a0| 65 6c 20 74 68 65 20 77 | 69 6e 64 6f 77 0d 20 20 |el the w|indow. |
|000036b0| 20 77 6b 69 6c 6c 28 20 | 57 69 6e 20 29 2e 0d 0d | wkill( |Win )...|
|000036c0| 25 20 54 68 65 20 70 61 | 73 73 77 6f 72 64 73 20 |% The pa|sswords |
|000036d0| 74 68 61 74 20 77 65 20 | 61 63 63 65 70 74 0d 63 |that we |accept.c|
|000036e0| 68 65 63 6b 5f 70 61 73 | 73 77 6f 72 64 28 20 77 |heck_pas|sword( w|
|000036f0| 6f 6d 62 61 74 20 29 2e | 0d 63 68 65 63 6b 5f 70 |ombat ).|.check_p|
|00003700| 61 73 73 77 6f 72 64 28 | 20 68 65 72 63 75 6c 65 |assword(| hercule|
|00003710| 73 20 29 2e 0d 63 68 65 | 63 6b 5f 70 61 73 73 77 |s )..che|ck_passw|
|00003720| 6f 72 64 28 20 73 70 72 | 6f 64 7a 6f 6f 6d 20 29 |ord( spr|odzoom )|
|00003730| 2e 0d 0d | |... | |
+--------+-------------------------+-------------------------+--------+--------+
